use strict;

my $filename = "foo.txt";
my $count;

open FILE, $filename or die "could not open $filename";
while(<FILE>) {
  $count++;
} # while
close FILE;

print $count;
[download]

Perl keeps track of the line number of the file you are in so you don't have to:

perl -e "while(<>){};print $." somefile.txt
[download]

Gotta love that $. variable :)

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.

I particularly like this code, posted by Abigail on (I believe) comp.lang.perl.misc:

    perl -wlpe '}{*_=*.}{' <file>
[download]

There's a lot of $. (<-- that dot is a regex =]) variables to love, yet I've only stumbled across a few of them, and even less explanations of what those variables do. Anyone know of a comprehensive listing of what variables are available to us in the $/./ (<-- that is a correct regex!) format and what they all do? I haven't noticed it in any of my books (I haven't read all of every book yet, so standard disclaimer of "i may be a fool" applies here).

-marius

Module: /org/trans/program files/dir1
/dir2/file1.cpp
some flags
some history
[download]

Module: /org/trans/program  
files/dir1/subdir1/subdir2/file1.cpp
some flags
some history
[download]

So if you're going through your file looking for ^Module and getting the what may be the filename;
You may want to do a test if the file exists: (-e $filename) and then if it does not, grab the next line and tack it on.
Though make sure you tack through the next Module line.
Does it break on line length or on spaces? Consider that as well.

I assume that what you're looking for here is the string '/org/trans/program files/dir1/subdir1/subdir2/file1.cpp'.
Crafting a regex to extract the file name without having a format you can rely on is going to be tricky.
However, if you are always going to be looking for a '.cpp' file, then the following will work:

#!/usr/bin/perl -w
 
use strict;
 
my $data = join '', <DATA>;
 
my ($filename) = ($data =~ m|^Module: (.*\.cpp)$|ms);
 
$filename =~ s|\n||;
 
print $filename;
 
__DATA__
Module: /org/trans/program
files/dir1/subdir1/subdir2/file1.cpp
some flags
some history
[download]