坦率地说,我根本不认识Perl。我不得不用perl来解决一个问题,原因有某些。我试图寻找快速解决方案,却找不到(我的坏)
Problem: I have got a file that has list of file names and a timestamps (i.e. 2012-05-24T18:19:35.000Z) in it.
I need to parse identify which of these are more that 90 days old.
我只需要支票,其他一切我想我已经到位了。当我去谷歌时,有人建议使用一些花哨的约会时间套件,而有些建议是使用 -M。
其实很困惑 感谢大家的帮助 谢谢
该日期格式的优点是,对其中两个字符串进行地名录比较与进行日期-时间比较相同。所以你只需要将过去90天的日期改成这个格式,并进行字符串比较。
use POSIX strftime ;
$_90_days_ago = strftime("%FT%T.000Z", gmtime( time-90*86400 ));
...
foreach $date (@your_list_of_dates) {
if ($date lt $_90_days_ago) {
print "$date was at least 90 days ago.
";
} else {
print "$date is less than 90 days ago.
";
}
}
此格式由RFC3339 (别具具体意义)和
类似这样的东西应该有用: (这只是最基本的 - 它需要关于打开数据文件的细节,等等) 您应该查看这个 Perl 模块 < a href=> https://metacpan.org/pod/Date:: Manip" rel="nofollow" >https://metacpan.org/pod/Date:: Manip
I am building a Web interface to monitor an embedded system.
I have built a Perl script which runs remote commands and gathers output from that system.
Now what I need is a Web interface which makes ...
How do I tell what type of value is in a Perl variable?
$x might be a scalar, a ref to an array or a ref to a hash (or maybe other things).
When I try a "chdir" with a filehandle as argument, "chdir" returns 0 and a pwd returns still the same directory. Should that be so?
I tried this, because in the documentation to chdir I found:
"...
I ve read the doc for GetOptions but I can t seem to find what I need... (maybe I am blind)
What I want to do is to parse command line like this
myperlscript.pl -mode [sth] [inputfile]
I can use ...
I m a little confused about what is going on in Perl constructors. I found these two examples perldoc perlbot.
package Foo;
#In Perl, the constructor is just a subroutine called new.
sub new {
#I ...
I would like to submit a form to a CGI script localy (w3c-markup-validator), but it is too slow using curl and apache, I want to use this CGI script more than 5,000 times in an another script.
and ...
So I m running perl 5.10 on a core 2 duo macbook pro compiled with threading support: usethreads=define, useithreads=define. I ve got a simple script to read 4 gzipped files containing aroud 750000 ...
A Google search yields a number of results - but which ones are the best?
The Perl site appears to contain two - perlboot and perltoot. I m reading these now, but what else is out there?
Note: I ve ...
#! perl -w
use strict;
use Time::Local;
# 90 times 24 hours of 60 minutes, 60 seconds
my $ninety_days = 24 * 60 * 60 * 90;
my $now = time;
# parse the time stamps in the file
while (<INPUTFILE>)
{
chomp();
if (/(d{4})-(d{2})-(d{2})T(d{2}):(d{2}):(d{2})/)
{
my $year = $1;
my $month = $2;
my $day = $3;
my $hour = $4;
my $minute = $5;
my $second = $6;
# Looks like these are in GMT ("Z") so we ll use timegm
my $time = timegm($second,$minute,$hour,$day,$month - 1,$year - 1900);
if (($now - $time) > $ninety_days)
{
print "$_ is more than 90 days ago!
}
}
}
相关问题
How can a Perl CGI script communicate with a daemon on the webserver?
How do I tell what type of value is in a Perl variable?
Why does my chdir to a filehandle not work in Perl?
How do I use GetOptions to get the default argument?
Object-Oriented Perl constructor syntax and named parameters
How do I use a Perl CGI locally without using curl and apache2?
Why does my Perl script to decompress files slower when I use threads?
Where can I find object-oriented Perl tutorials? [closed]