Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?
 
PerlMonks  

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; }

Prints:

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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others perusing the Monastery: (7)
As of 2016-06-30 09:16 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    My preferred method of making French fries (chips) is in a ...











    Results (391 votes). Check out past polls.