08-25-2015
Hi.
The thread
Perl script to read string from file#1 and find/replace in file#2 contains a perl code for multiple replacement -- Aia and MIG code.
That code was far faster than a similar-by-results perl code that I had written (long ago).
Some modification and testing on your part will probably be needed.
Good luck ... cheers, drl
This User Gave Thanks to drl For This Post:
9 More Discussions You Might Find Interesting
1. Shell Programming and Scripting
I have a list file, in which both the words to be replaced and to be replaced with are there... need to run a script which will accept the list name and replace all the occurances ..
ex. the list file contains something like
hi=bye
go=come
Now i want to replace the words hi with bye and go... (3 Replies)
Discussion started by: dixitked
3 Replies
2. Shell Programming and Scripting
Hi
Please help with this one..
I have a file...I need to replace all the words containing a particular pattern say "xyz' and replace the entire containing xyz with abc..
Before
xyzwork connect
connect xyz
disconnect raxyz
After the operation i want something like below:
abc... (4 Replies)
Discussion started by: ningy
4 Replies
3. Shell Programming and Scripting
Hello folks, I have a simple request but I can't find a simple solution.
Hare is my problem. I have some dates, I need to replace months with only the first 3 characters (jan for january, feb for february, ... all in lower case)
~$ echo '3 october 2010' | sed
3 oct 2010I thought of something... (8 Replies)
Discussion started by: tukuyomi
8 Replies
4. Shell Programming and Scripting
hello,
i 'd like your help about a bash script which:
1. finds inside the html file (it is attached with my post) the code number of the Latest Stable Kernel,
2.finds the link which leads to the download location of the Latest Stable Kernel version,
(the right link should lead to the file... (3 Replies)
Discussion started by: alex83
3 Replies
5. Shell Programming and Scripting
Hi
I have a file like that contains infomation about genes exons introns made as a single string. i am just planning to get the gene name alone with out any extra information.
intergenic_Nedd4_exon_0_F
Gapvd1_intron_24_R
Gapvd1_exon_25_Rmy output file should be
intergenic_Nedd4
Gapvd1... (13 Replies)
Discussion started by: raj_k
13 Replies
6. UNIX for Dummies Questions & Answers
Hello,
I would like to change my setting in a file to the setting that user input.
For example, by default it is
ONBOOT=ON
When user key in "YES", it would be
ONBOOT=YES
--------------
This code only adds in the entire user input, but didn't replace it.
How do i go about... (5 Replies)
Discussion started by: malfolozy
5 Replies
7. Shell Programming and Scripting
Hi Guys,
I have a text where we used Ram in 10 times now I want replace all Ram words by Shyam word then how to do it. (6 Replies)
Discussion started by: aaditya321
6 Replies
8. Shell Programming and Scripting
Hi All,
I need one help to replace particular words in file based on if finds another words in that file .
i.e.
my self is peter@king.
i am staying at north sydney.
we all are peter@king.
How to replace peter to sham if it finds @king in any line of that file.
Please help me... (8 Replies)
Discussion started by: Rajib Podder
8 Replies
9. Shell Programming and Scripting
I have 4000 files like
$cat clus_grp_seq10_g.phy
18 1002
anig_OJJ65951_1 ATGGTTTCGCAGCGTGATAGAGAATTGTTTAGGGATGATATTCGCTCGCGAGGAACGAAGCTCAATGCTGCCGAGCGCGAGAGTCTGCTAAGGCCATATCTGCCAGATCCGTCTGACCTTCCACGCAGGCCACTTCAGCGGCGCAAGAAGGTTCCTCG
aver_OOF92921_1 ... (1 Reply)
Discussion started by: sammy777888
1 Replies
LEARN ABOUT DEBIAN
app::nopaste
App::Nopaste(3pm) User Contributed Perl Documentation App::Nopaste(3pm)
NAME
App::Nopaste - easy access to any pastebin
SYNOPSIS
use App::Nopaste 'nopaste';
my $url = nopaste(q{
perl -wle 'print "Prime" if (1 x shift) !~ /^1?$|^(11+?)1+$/' [number]
});
# or on the command line:
nopaste test.pl
=> http://pastebin.com/fcba51f
DESCRIPTION
Pastebins (also known as nopaste sites) let you post text, usually code, for public viewing. They're used a lot in IRC channels to show
code that would normally be too long to give directly in the channel (hence the name nopaste).
Each pastebin is slightly different. When one pastebin goes down (I'm looking at you, <http://paste.husk.org>), then you have to find a new
one. And if you usually use a script to publish text, then it's too much hassle.
This module aims to smooth out the differences between pastebins, and provides redundancy: if one site doesn't work, it just tries a
different one.
It's also modular: you only need to put on CPAN a App::Nopaste::Service::Foo module and anyone can begin using it.
INTERFACE
CLI
See the documentation in App::Nopaste::Command.
"nopaste"
use App::Nopaste 'nopaste';
my $url = nopaste(
text => "Full text to paste (the only mandatory argument)",
desc => "A short description of the paste",
nick => "Your nickname",
lang => "perl",
chan => "#moose",
private => 1, # default: 0
# this is the default, but maybe you want to do something different
error_handler => sub {
my ($error, $service) = @_;
warn "$service: $error";
},
warn_handler => sub {
my ($warning, $service) = @_;
warn "$service: $warning";
},
# you may specify the services to use - but you don't have to
services => ["Shadowcat", "Gist"],
);
print $url if $url;
The "nopaste" function will return the URL of the paste on success, or "undef" on failure.
For each failure, the "error_handler" argument is invoked with the error message and the service that issued it.
For each warning, the "warn_handler" argument is invoked with the warning message and the service that issued it.
SEE ALSO
WebService::NoPaste, WWW::Pastebin::PastebinCom::Create, Devel::REPL::Plugin::Nopaste
http://perladvent.org/2011/2011-12-14.html <http://perladvent.org/2011/2011-12-14.html>
AUTHOR
Shawn M Moore, "sartak@gmail.com"
COPYRIGHT AND LICENSE
Copyright 2008-2010 Shawn M Moore.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2011-12-15 App::Nopaste(3pm)