How to write perl substitute command in shell script without invoking a perl script file seperately.
for ex:
shell script to relace IT with CSC in a file using perl substitute command. (3 Replies)
Hi,
I have a string like this user can specify different query sets that is why "or" is mentioned:
$string="](";
or
$string="]((";
or
$string="](((";
or
$string="]((((("; (1 Reply)
Hi,
I have string like this:
$str=' DNA OR ("rna AND binding AND protein")';
I just wanted to substitute AND with a blank. How can i do that?
I want the output like this:
$string= DNA OR ("rna binding protein") (3 Replies)
Hi guys I'm using the following script to change input file format to another format. some where I'm getting the error. Could you please let me know if you find out?
cat input.txt|egrep -v ‘^#'|\ perl -ane ‘if (@F>3){$_=~/(chr.+):(\d+)\ s()/;print $1,”\t”,$2,”\t”,($2+35),”\n”}'\ > output.bed
... (1 Reply)
Hi All,
I was trying to run the cat command using perl SCRIPT for my daily reports.
However cat command is not working in PERL.
please help me.
cat FILE1.txt |cut -d "|" -f1 >INPUT1.txt
cat FILE2.txt|wc -l *9111*|>INPUT2.txt
paste INPUT1,INPUT2 >OUTPUT.txt
Thanks in advance
... (3 Replies)
I'd like to do this using Perl command line (sorry no awk, sed, etc.)
replace the 3 middle lines in a file by one line:
aaa 123
bbb 234
ccc 34567
dd 4567
ee 567
to:
aaa 123
AAA
ee 567
I tried this but not working:
perl -pi -e "s/aaa\ 123\nbbb\ 234\nccc\ 34567/AAA/" file (2 Replies)
hi all,
how do i assign values passed in from command line to and sql statement in perl ?? e.g
i want to assign :name1 and :Name2 to be whatever is passed into the perl script command line
my $sqlStr = "select * from test_table where column1 = upper(nvl(:name1, name1 )) and column2... (1 Reply)
I am having trouble with a part of my substitute script I am using. I have it look through a file and find an exact match and then if it finds that match in the 1 file it should run the following 1 liner on 3 different files.
perl -pi -e 's/$CurrentName\s/$NewName/g' foo.cfg;
The issue that is... (8 Replies)
I have a string like.
ATATATATTATTATATTATATTATT
I want to substitute the characters to "C" by using these locations
3 7
10 18
15 20
desired Output:
ATCCCCCTTACCCCCCCCCCTTATT
any clue will be great help. :wall:
thanks in advance. (2 Replies)
Hi All
i need a little script that can open a file , read it and then spit out some information from it
from the shell i would do
cat /var/log/Xorg.0.log | grep pixel | sed 's/: 330.*//' |
how can i do this nicley in perl
thanks
Adam (3 Replies)
Discussion started by: ab52
3 Replies
LEARN ABOUT DEBIAN
locale::msgcat
Msgcat(3pm) User Contributed Perl Documentation Msgcat(3pm)NAME
Locale::Msgcat - Perl extension for blah blah blah
SYNOPSIS
use Locale::Msgcat;
$cat = new Locale::Msgcat;
$rc = $cat->catopen(name, oflag);
$msg = $cat->catgets(set_number, message_number, string);
$rc = $cat->catclose();
DESCRIPTION
The Locale::Msgcat module allows access to the message catalog functions which are available on some systems. A new Locale::Msgcat object
must first be created for each catalog which has to be open at a given time.
The catopen operation opens the catalog whose name is given as argument. The oflag can be either 0 or NL_CAT_LOCALE (usually 1) which is
the recommended value.
The catgets message retrieves message_number for the set_number message set, and if not found returns string.
The catclose function should be used when access to a catalog is not needed anymore.
EXAMPLES
use Locale::Msgcat;
$cat = new Locale::Msgcat;
unless ($cat->catopen("whois.cat", 1)) {
print STDERR "Can't open whois catalog.
";
exit(1);
}
printf "First message, first set : %s
", $cat->catgets(1, 1, "not found");
unless ($cat->catclose()) {
print STDERR "Can't close whois catalog.
";
exit(1);
}
The above example would print the first message from the first message set found in the whois catalog, or if not found it would print "not
found".
AUTHOR
Christophe Wolfhugel, wolf@pasteur.fr
SEE ALSO catopen(3), catclose(3), catgets(3), perl(1).
perl v5.14.2 1999-11-15 Msgcat(3pm)