while (defined(my $line = $fh->getline())) {
while ( $line =~ m/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})<\/ip>/g) {
print "$1\n";
}
}
use WWW::Curl;
use WWW::Curl::Easy;
use Data::Dumper;
my %opts = (
CURLOPT_URL => 'http://wikipedia.org',
CURLOPT_CONNECTTIMEOUT => 30
);
sub curl_func {
my ($curlOptions) = @_;
my $ch = new WWW::Curl::Easy();
while (my ($key, $value) = each %$curlOptions) {
$ch->setopt(&{$key}(), $value);
}
# ...
}
curl_func(\%opts);
use POSIX qw/strftime/;
#Вчерашняя дата в нужном формате
my $date = strftime('%Y-%m-%d',localtime(time-86400));
my $filepath = "/tmp/dst_dir/file1-$date";
if ! (open $fh, '<', $filepath) {
#Копии файла нет
# как нравится
};
croak $EVAL_ERROR if !close $fh;