Beefy Boxes and Bandwidth Generously Provided by pair Networks
good chemistry is complicated,
and a little bit messy -LW

Re^3: Modify a txt file

by GrandFather (Sage)
on Oct 20, 2011 at 07:34 UTC ( #932580=note: print w/replies, xml ) Need Help??

in reply to Re^2: Modify a txt file
in thread Modify a txt file

The code you posted works as advertised by davido. Consider:

use strict; use warnings; my $data = <<DATA; 0 ASDF ASEE ASEE 13 DERG DREG 28 QWER QWER 42 WERT WERT WERT 55 QWEASD QWEASD QWEASD QWEASD DATA open my $inFile, '<', \$data; $/ = "\n\n"; while (<$inFile>) { if (my ($number) = m/(\d+)/) { s/\b\p{Alpha}+\b/$number/g; } else { warn "Malformed record in input line $.\n$_\nContinuing.\n"; } print; }


0 0 0 0 13 13 13 28 28 28 42 42 42 42 55 55 55 55 55

so there is a mismatch between what you are telling us and what you are actually doing. If you really want help you need to really tell us what you are doing and show us (as per the sample code above) how things are going wrong. We can't fix what ain't broke!

True laziness is hard work

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others scrutinizing the Monastery: (8)
As of 2017-05-25 18:59 GMT
Find Nodes?
    Voting Booth?