Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: again problem with regexpr

by nerfherder (Monk)
on Mar 27, 2005 at 20:37 UTC ( #442695=note: print w/replies, xml ) Need Help??


in reply to again problem with regexpr

for example a text in this file like "trojan is like viruse" does exist..and i want to chage this like "hello". i know ,i know i can use regexpr s/// or use tr///...but how can i change it on my file...?
Try using the substitution method (s///), and writing the output to a new file. You can then diff the new file with the original to verify your output.
#!/usr/bin/perl my $infile = "/home/white_fox/filename.txt"; my $outfile = "/home/white_fox/filename-new.txt"; open (INFILEHANDLE, "< $infile") or die "Can't open input file because +: $! \n"; open (OUTFILEHANDLE, "< $outfile") or die "Can't open output file beca +use: $! \n"; while(<INFILEHANDLE>){ $_ =~ s/trojan is like viruse/hello/; $_ =~ s/phone \= 123456/5678/; print OUTFILEHANDLE $_; } close(INFILEHANDLE); close(OUTFILEHANDLE);

Sounds like perhaps you're also looking for a regex to identify phone numbers. If that's the case, check out this node: http://www.perlmonks.org/index.pl?node_id=335348. Good luck!

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (3)
As of 2021-09-16 21:03 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?