User Profile

sathishkumar88 · Apr 13 '12, 06:27 AM

Hi,

use below code.

Code:

use Time::localtime;
use File::stat;

for ( @ARGV )
{
    print "\nFile: $_";
    print "\n Last access   time: ", ctime( stat($_)->atime );
    print "\n Last modify   time: ", ctime( stat($_)->mtime );
    print "\n File creation time: ", ctime( stat($_)->ctime );
    # print "\n

...

sathishkumar88 · Jan 30 '12, 05:41 AM

This can be useful for you
use strict;
use warnings;
print "strin\%g";

sathishkumar88 · Jan 24 '12, 09:36 AM

please use this one
$ftmp = 'Name.txt';
my %match = ();
{
local @ARGV = ($ftmp);
local $^I = '.tmp';
while (<>)
{
$row=$_;
if($row=~m/([^<]*?)\s/is)
{
$word=$1;
$match{$word}++ ;
next if $match{$word} > 1;
print;
}

}
}

sathishkumar88 · Jan 23 '12, 08:30 AM

use below script for remove duplicate line in file
$ftmp = 'Name.txt';
my %match = ();
{
local @ARGV = ($ftmp);
local $^I = '.tmp';
while(<>)
{
$match{$_}++;
next if $match{$_} > 1;
print;
}
}

User Profile

Profile Sidebar

Leave a comment:

Leave a comment:

Leave a comment:

Leave a comment: