Re: filehandle regex

To print the previous line, one way of doing it is:

my $prev = "";
while (<ORA>) {
    print $prev if /^Func_file_permission$/;
    $prev = $_;
}
[download]

Comment on Re: filehandle regex Download Code

Replies are listed 'Best First'.
Re^2: filehandle regex by pinnacle (Acolyte) on Nov 17, 2010 at 00:21 UTC
Thanks for the solution it works!! One thing I don't understand why we are using my $prev = ""; also $prev = $_; due to which I am getting previous line from the file What's the magic behind it Thanks!!	[reply]
Re^3: filehandle regex by CountZero (Bishop) on Nov 17, 2010 at 06:58 UTC
Yes, it will also work, but then the script will not run under `use strict;`. CountZero A program should be light and agile, its subroutines connected like a string of pearls. The spirit and intent of the program should be retained throughout. There should be neither too little or too much, neither needless loops nor useless variables, neither lack of structure nor overwhelming rigidity." - The Tao of Programming, 4.1 - Geoffrey James	[reply] [d/l]
Re^3: filehandle regex by JavaFan (Canon) on Nov 17, 2010 at 09:54 UTC
The `my $prev` part is there to properly declare the variable. The `= ""` is there to not have warnings if the first line actually matches. The `;` is there to separate statements.	[reply] [d/l] [select]