in reply to Re^2: Finding a Letter at Last line
in thread Finding a Letter at Last line

yes... you can use "<$filename"

Replies are listed 'Best First'.
Re^4: Finding a Letter at Last line
by mantra2006 (Hermit) on Nov 08, 2006 at 16:49 UTC
    Hey smokemachine
    just a small clarification... 
    for file in `ls -1 *.txt`
do
    #echo $file
    perl -e 'open FILE, "<$file"; $_ = join "", <FILE>; print "true" i
+f /^t[^\n]*\Z/msi'
done

    [download]

    when I run this for loop nothing is printing on command line but
    when I run with individual filenames its returning true..what is wrong with it..
    Thanks & Regards
    Sridhar
[reply]
[d/l]
      because you are usin the for of shellscript to have the name of the file in $file and trying to use this in a perl program... you could do this? 
      perl -e 'for $file(@ARGV){open FILE, "<$file"; $_ = join "", <FILE>; p
+rint "true" if /^t[^\n]*\Z/msi;close FILE}' *.txt

      [download]
[reply]
[d/l]
[select]
      Almost there, just insert two extra quotes. 
      for file in `ls -1 *.txt`
do perl -e 'open FILE, "<'$file'"; $_ = join "", <FILE>; print "true" 
+if /^t[^\n]*\Z/msi'
done

      [download]
[reply]
[d/l]
        you can do this too... but you dont need use the ls insight of for... 
        for file in *.txt
do perl -e 'open FILE, "<'$file'"; $_ = join "", <FILE>; print "true" 
+if /^t[^\n]*\Z/msi'
done

        [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom