assign my variables??

[lawsoncs]

Hello, I have a small file produced that reads teh following:

Score: 192, lines:30 'display.doc /home/kgo11/docroot/'

and it has multiple lines liek this. I have set up my perl script to read teh file line by lise using

while ( $line = <FILE> )
{
($Score, $Lines, $File, $Dir) = /Score: (\d+), lines\d+) '(\w+) * (\w+)'.

Can you see what the problem is and wy it is missing all of the variables

 

[justice41]

The problem is that '\w' will not match '.' in 'display.doc' or '/' in '/home/kgo11/docroot/'. '\w' is equivalent to [a-zA-Z0-9_]. Try changing the '\w's to '\S's, the non-whitespace character.

Also, the while-loop should either be

while (<FILE>) {
     # $_ contains the current line
     (...) = /.../;
     # /../ matches against $_ by default
}

Or

while ( defined($line=<FILE>) ) {
     # $line contains the current line
     (...) = $line =~ /.../;
     # Specify to match against $line;
}

(I assume the missing '/' and ';' from the end of your line is just a typo.)

jaa

 

[trepur]

Or you could do the following to parse out the information....

while(<FILE>) {
chomp();
($score,$lines,$file,$dir) = /Score:\s(\d+),\slines\d+)\s'(.*)\s+(.*)'/;
}

Hope this helps!

 

[justice41]

Non-greedy matching should be used here. If there is more than one space between the filename and the path (which it looks like there is) then [tt]$file[/tt] will contain trailing whitespace because the first (.*) will gobble it all up except for the very last space before the path.
[tt]
($score,$lines,$file,$dir) = /Score:\s(\d+),\slines\d+)\s'(.*?)\s+(.*)'/;
[/tt]

jaa