Shell Programming and Scripting

$ echo "helloworld" | perl -ne 'print s/l/x/g'
3

# cat 1
X
Y
Z
123
234
345
a b cd
b c de
c d ef

# sed -n 's/[a-z]/&/gp' 1|sed 's/./&\n/g'|sed '/^ *$/d'|sed -n '$='
12

# sed -n 's/[0-9]/&/gp' 1|sed 's/./&\n/g'|sed '/^ *$/d'|sed -n '$='
9

# sed -n 's/[A-Z]/&/gp' 1|sed 's/./&\n/g'|sed '/^ *$/d'|sed -n '$='
3

# sed -n 's/[A-Z]\|[a-z]/&/gp' 1|sed 's/./&\n/g'|sed '/^ *$/d'|sed -n '$='
15

[root@host dir]# cat input
ramdom text
random text
HttpDefaultsGui hello world mars enabled="true"
name="HTTPSampler.proxyHost">hello<
name="HTTPSampler.proxyHost">mars<
nama="HTTPsSampler.proxyHost">.*<
</ConfigTestElement
ramdom text
ramdom text
[root@host dir]#
[root@host dir]# cat test.pl
#! /usr/bin/perl -w
use strict;

my $gProxyHost = "helloworld";
my $cnt = 0;

open FILE, "< input";
for (<FILE>) {
    if (/HttpDefaultsGui.*?enabled="true"/ .. /<\/ConfigTestElement/) {
        (/HttpDefaultsGui.*?enabled="true"/ || /<\/ConfigTestElement/) && next;
        $cnt += s/name="HTTPSampler.proxyHost">.*?</name="HTTPSampler.proxyHost">${gProxyHost}</;
        print;
    }
}
close FILE;

print "$cnt\n";
[root@host dir]#
[root@host dir]# ./test.pl
2