Search Results

$ sed 's:\(-name FILTER\):\1 -username filter:' file
-name FILTER -username filter -node 60265 . . .

perl -pe 's/(^-name FILTER)/$1 -username filter/' infileAdd -i option, and infile is changed directly.

nawk ' { sub(/^-name FILTER/,"-name FILTER -username filter") } 1' filename
OR
nawk ' { sub(/^-name FILTER/,"& -username filter") } 1' file

&transmit_files if $ENV{APPS} eq "/prod_application";

Maybe something like this?


$
$ cat file_svn
https://ims-svnus.com/dev/DB/trunk/feeds/templates/shell_script.txt -r860
https://ims-svnus.com/dev/DB/trunk/db/sec_db/stored_procedures/alter.sql...

Do you really need a bash script and perl script? I could assist with completing the task in purely bash if I better understood what needs to be done.

---------- Post updated at 02:53 PM...

Try:
while read url rev
do
name=${url##*/templates/}
base=${url##*/trunk/}
dir=${base%%/templates/*}
echo "$name $dir"
done < "$file"

There's a small typo on the third line of...

You can use the basename command for the same purpose very conveniently.Here is its syntax:

basename <absolute pathname>

It will extract the filename from the absolute path.

Example:


$$...

Try:
while read url rev; do
echo "${url##*/}"
done < "$file"

cat FILE
https://ims-svnus.com/dev/DB/trunk/feeds/templates/shell_script.txt -r860
https://ims-svnus.com/dev/DB/trunk/feeds/perl/templates/perl_script.txt -r867...

Shorter:
perl -pe '$_=lc;s/_([a-z])/\u$1/g' inputfile

Hi,

Here is the awk solution,


awk '{$0=tolower($0);while(match($0,"_")){l=substr($0,match($0,"_"),2);L=toupper(l);sub(l,L);sub(/_/,"");}}1' file



Cheers,
Ranga:)

perl -pe '$_=lc;while(/_([a-z])/g){$x=$1;$y=uc($x);s/_$x/$y/g}' inputfile

$ perl -alne '$_=~s/_/ /g; $_=~s/(\w+)/\u\L$1/g;$_=~s/ //g;print lcfirst $_' input.txt
filterWord
usaNewjersey
usaNewyorkNyc

To add those two lines comment this instruction:

#next if $flipflop == 1 || $flipflop =~ /E0\Z/;Regards,
Birei

Not sure about what are header and footer but I hope you can avoid the 'out of memory' message:

$ cat script.pl
use warnings;
use strict;

die qq[Usage: perl $0 <input-file> <output-good-file>...

while($LINE=<FILE>)
{
...
}

With awk..
awk -F: '/command: /{print $1 FS " echo \"" $2 " \" ";next}1' inputfile

sed 's#^command:\(.*\)#command: echo " \1 "#' myJILfile

-i.bak will do the backup.

grep -l "xsgd1234dap" *.sh |xargs perl -i.bak -pe 's/xsgd1234dap/xsdr3423pap/g'

Make a backup first

Then:
find . -name "*sh" |xargs perl -pi -e 's/find/replace/g'


it was tested on solaris


Video tutorial on how to use code tags in The UNIX and Linux Forums....

sed '/^insert_job/ s/TS_QDB_/KB_OM_1876_/g' yourfile

No. # is an usual char in string literals and regexes :
cat >INPUTFILE
1
# comment
3
#
#
4
$ perl -lne '!/^#/ && print' INPUTFILE
1
3
4

What the error did you get?

my $n = @goodlines;
$n -= grep {/^# PRODUCT/} @goodlines; # or just $n -= 4 but it's not good
$footer[$datarec_line] =~ s/\d+/$n/;

Ok. Let's take a such example file:
cat INPUTFILE
START-OF-FILE
.......
so on ....

TIMESTARTED=Thu Aug 25 01:03:50 BST 2011
START-OF-DATA
# PRODUCT=Corp/Pfd
a
b
1
c
d
3
END-OF-DATA...