Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: split line from one point

by moritz (Cardinal)
on Oct 19, 2011 at 12:17 UTC ( #932377=note: print w/replies, xml ) Need Help??

in reply to split line from one point

Please be more specific than "doesn't work". What happens? Do blue flames come out of your computer?

Anyway, the problem is likely that you call split in scalar context. Depending on your Perl version, that either puts the number of chunks into $a (newer perls), or does something very weird (in older perl, it writes the chunks to @_).

The solution is to call split in list context:

my ($a) = split /T/; print RE $a;

Replies are listed 'Best First'.
Re^2: split line from one point
by Anonymous Monk on Oct 19, 2011 at 12:29 UTC

    thanks, i have this: read line <> on closed file handle IN at line 4.

      That means that the first open() call failed. Either use autodie; in the beginning, or write your calls as
      open my $IN, '<', 'transaction' or die "Cannot open 'transaction' for +reading: $!"; ... while (<$IN>) { ... }

      (And adapt the code for the second file accordingly).

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://932377]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others browsing the Monastery: (5)
As of 2018-07-20 09:01 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (427 votes). Check out past polls.