4

What is this perl snipet is doing?

view full story
linux-howto

http://www.unix.com – Code: perl -e '@stat=stat("/etc/passwd");$now_string=localtime($stat[9]);print $ARGV[0].":$now_string\n"' ./file_name Please if anyone can describe it. Thanks in advance (HowTos)

Shoutmeloud's picture
Submitted by Shoutmeloud on 02/03/2012 – Made popular on 02/03/2012

Stories similar to What is this perl snipet is doing?

Equalent of Linux "stat" in AIX 36 weeks 14 hours ago

i would like to know the equivalent of Code: stat -c %Y <file> command in AIX.

i tried " Code: istat " but its not giving the epoch time and also tried with perl

Code: perl -le'printf "%o", 07777 & (stat)[2] for @ARGV' <file> it not also provding the timing .

http://www.unix.com/shell-programmin...t-command.html

if you have any other

Dear all,

I am unable to get the desired result upon executing the below script.

Grep in line use perl 17 weeks 1 day ago

Hi,

i want to create perl script to telnet and print the output.

Dear All,

Code: perl -e 'if($ARGV[0] =~ /\A^[0-9]{10}\z/){print "Valid string\n"}else{print "Invalid string\n"}' '1234567899' Valid string

perl -e 'if($ARGV[0] =~ /\A^[0-9]{8}\z/){print "Valid string\n"}else{print "Invalid string\n"}' '12345678' Valid string individually both works, anyway to combine both together?

Perl Legends,

I am trying to debug below perl script. Till "h1" and "h2" the value in variable is initialized.

sdcprd@dotstoas110:$ echo $F2 1327332411

this works ---------- sdcprd@dotstoas110:$ perl -MPOSIX -le 'print strftime ("%m%d%y",localtime (1327332411))' 012312 <<<< correct date

this doesnt ----------- sdcprd@dotstoas110:$ perl -MPOSIX -le 'print strftime ("%m%d%y",localtime ($F2))' 123169 sdcprd@dotstoas110:$ perl -MPOSIX -le 'print strftime ("%m%d%y&

perl dot escaping issue 36 weeks 3 days ago

Hello,

I'm trying to figure out why this perl command does not work.

C++ question 27 weeks 6 days ago

Hey guys and gals, hows it going? Hopefully a very quick and easy question.

Dear All,

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

my $tmp = $ARGV[0];

if ($tmp =~ s/[\ \$]//g > 0) {         print "yes\n" } else {         print "no\n"; } Output is:

Code: ./master.pl " 333" yes ./master.pl "$333" no why cannot detect the $ sign? please advise.

Thanks