Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^2: Iterator to parse multiline string with \\n terminator

by three18ti (Scribe)
on Oct 06, 2013 at 06:08 UTC ( #1057124=note: print w/ replies, xml ) Need Help??


in reply to Re: Iterator to parse multiline string with \\n terminator
in thread Iterator to parse multiline string with \\n terminator

EDIT: Oh, I'm an idiot... for got to change:

$line .= $fh_iterator while $line =~ m{\\$};

To:

$line .= $fh->getline while $line =~ m{\\$};

However, the code does return the error below on the last line of my test file...

Use of uninitialized value $line in pattern match (m//) at parser3.pl +line 17, <GEN0> line 5.

Begin Original Post

Hmm... well, I get a new error at least:/p>

Use of uninitialized value $line in pattern match (m//) at parser3.pl +line 17, <GEN0> line 5.

Here's the accompanying code and test file:

#/usr/bin/perl use strict; use warnings; use IO::File; use 5.010; my $filename = shift @ARGV; my $fh = IO::File->new($filename, 'r'); sub fh_iterator { my $fh = shift; my $line = $fh->getline; $line .= fh_iterator($fh) while $line =~ m{\\$}; } while (my $line = fh_iterator $fh ) { print $line; } __END___ test.file foo \ bar \ baz single line


Comment on Re^2: Iterator to parse multiline string with \\n terminator
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1057124]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (12)
As of 2015-07-28 12:00 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The top three priorities of my open tasks are (in descending order of likelihood to be worked on) ...









    Results (254 votes), past polls