Вот как это сделать с dplyr
и lubridate
:
library(dplyr)
library(lubridate)
# generate a data frame with dates to play with
(df <- data_frame(
date=seq(as.Date("2017-01-01"), as.Date("2018-12-31"), by=6),
amount=rgamma(length(date), shape=2, scale=20)))
df %>%
group_by(month=floor_date(date, "month")) %>%
summarize(date = max(date))
Использовать getifaddrs(3)
. Простой пример. Использование "./нечто 123.45.67.89" добавьте проверку ошибок и т.д.:
#include <stdlib.h>
#include <string.h>
#include <arpa/inet.h>
#include <net/if.h>
#include <ifaddrs.h>
int main(int argc, char *argv[]) {
struct ifaddrs *addrs, *iap;
struct sockaddr_in *sa;
char buf[32];
getifaddrs(&addrs);
for (iap = addrs; iap != NULL; iap = iap->ifa_next) {
if (iap->ifa_addr && (iap->ifa_flags & IFF_UP) && iap->ifa_addr->sa_family == AF_INET) {
sa = (struct sockaddr_in *)(iap->ifa_addr);
inet_ntop(iap->ifa_addr->sa_family, (void *)&(sa->sin_addr), buf, sizeof(buf));
if (!strcmp(argv[1], buf)) {
printf("%s\n", iap->ifa_name);
}
}
}
freeifaddrs(addrs);
return 0;
}
Вы могли просто проанализировать вывод от чего-то как
netstat -ie | grep -B1 "192.168.21.10"
-B1 часть говорит grep, что мы хотим включать строку перед соответствием в выводе, таким образом, мы получаем это:
eth0 Link encap:Ethernet HWaddr 00:13:72:79:65:23
inet addr:192.168.21.10 Bcast:192.168.21.255 Mask:255.255.255.0
После того как Вы уверены, что получаете вывод, в котором Вы нуждаетесь, можно уплотнить его далее в остроту....
netstat -ie | grep -B1 "192.168.21.10" | head -n1 | awk '{print $1}'
который просто возвращает "eth0"