Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister

Get Text at position from many files (While/Unless)

by maikelnight (Sexton)
on Sep 28, 2018 at 19:25 UTC ( #1223255=perlquestion: print w/replies, xml ) Need Help??

maikelnight has asked for the wisdom of the Perl Monks concerning the following question:

Dear Monks, i want to get text from multiple files at a regex start until the end of file. It works for the first file, what means it shows the text from my regex until eof, but it doesnt work for the following files. It shows the full text. I am beginner and cant find out why. I believe its about the "unless" part which thinks all is after the first match!? My someone please help me out? Thanks.
my @textfiles = (); @textfiles = glob("*.txt"); foreach my $textfile (@textfiles){ open ( my $inf_fh, '<', $textfile ) or die "Can't open $textfile $ +!\n"; while (<$inf_fh>) { unless (1.../^Something/) { print $_; } } close($inf_fh); }

Replies are listed 'Best First'.
Re: Get Text at position from many files (While/Unless)
by choroba (Archbishop) on Sep 28, 2018 at 19:43 UTC
    I created several text files, some of them containing "Something", some of them not, and the code seems to work correctly. Can you show the SSCCE?

    ($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord }map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
      Stupid me, it was an beforehand mistake as i used >>/append to put stuff in my files. I realized that content was correct with multiple files at first start ;-) Sorry...

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://1223255]
Approved by marto
Front-paged by Corion
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (5)
As of 2020-01-28 00:06 GMT
Find Nodes?
    Voting Booth?