in reply to Find files by current date

#!/usr/bin/perl
use warnings;
use strict;

( my $today = localtime ) =~ s'\d+:\d+:\d+'\d+:\d+:\d+';

for ( <*> ) {
    print "$_\n" if localtime( ( stat )[ 9 ] ) =~ $today;
    }

[download]

Replies are listed 'Best First'.
Re^2: Find files by current date
by Anonymous Monk on Jun 28, 2006 at 21:56 UTC
    Hi,
    What you told is working for me in the local server.If i want to run the same command in remote server using telnet how i have to do it.
    Please let me know.
    Thank You.
[reply]

In Section Seekers of Perl Wisdom