Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

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 drinking their drinks and smoking their pipes about the Monastery: (7)
As of 2018-06-22 19:57 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (124 votes). Check out past polls.