Sudarshan Raghavan wrote:
>
> On Fri, 21 Mar 2003, NYIMI Jose (BMB) wrote:
>
> > > From: Palmer Greg [mailto:[EMAIL PROTECTED]
> > >
> > > $filename = `ls -ltr|tail -1 $DIRECTORY`;
> > > print $filename;
> >
> > Sorry, i didn't mentioned that i wanted a pure perl solution, thanks anyway.
> >
> >
On Fri, 21 Mar 2003, NYIMI Jose (BMB) wrote:
> > -Original Message-
> > From: Palmer Greg [mailto:[EMAIL PROTECTED]
> > Sent: Thursday, March 20, 2003 4:50 PM
> > To: NYIMI Jose (BMB)
> > Subject: RE: Unix ls -lrt | tail -1 in Perl
> >
> >
&
> -Original Message-
> From: Palmer Greg [mailto:[EMAIL PROTECTED]
> Sent: Thursday, March 20, 2003 4:50 PM
> To: NYIMI Jose (BMB)
> Subject: RE: Unix ls -lrt | tail -1 in Perl
>
>
> $filename = `ls -ltr|tail -1 $DIRECTORY`;
> print $filename;
Sorry, i didn&
03 9:17 AM
To: Perl beginners
Subject: Re: Unix ls -lrt | tail -1 in Perl
On Thu, 20 Mar 2003, NYIMI Jose (BMB) wrote:
> Hello,
>
> How can I do this unix command in Perl ? : ls -lrt | tail -1
> Actually, i would like to get the most recent file from a given directory.
my $latest
On Thu, 20 Mar 2003, NYIMI Jose (BMB) wrote:
> Hello,
>
> How can I do this unix command in Perl ? : ls -lrt | tail -1
> Actually, i would like to get the most recent file from a given directory.
my $latest = (sort {-M $b <=> -M $a} <$dir/*>)[-1];
or
my $latest;
while (<$dir/*>) {
$lates
