Shell Programming and Scripting

campus.com_icmp_ping_alive.txt
data_local_cd_httpd.txt
data_local_cd.txt
new_local_cd_mysql.txt
new_local_cd_nagios_content.txt

data   local_cd_httpd
data   local_cd
new   local_cd_mysql
new   local_cd_nagios_content

[home@user]ls *.txt | awk -F"_" '{print $1}' > tmp1
[home@user]cat tmp1
data   
data   
new   
new

# ls -1 *txt| awk '!/^c/ {sub(/_/,"\t"); print}'
data    local_cd_httpd.txt
data    local_cd.txt
new     local_cd_mysql.txt
new     local_cd_nagios_content.txt

# ls -1 *txt| sed -n '/^[^c]/ {s/_/\t/p}'
data    local_cd_httpd.txt
data    local_cd.txt
new     local_cd_mysql.txt
new     local_cd_nagios_content.txt

$ echo '!/^c/ {sub(/_/,"\t"); print}'|a2p
#!/usr/bin/perl
eval 'exec /usr/bin/perl -S $0 ${1+"$@"}'
    if $running_under_some_shell;
                        # this emulates #! processing on NIH machines.
                        # (remove #! line above if indigestible)

eval '$'.$1.'$2;' while $ARGV[0] =~ /^([A-Za-z_0-9]+=)(.*)/ && shift;
                        # process any FOO=bar switches

$, = ' ';               # set output field separator
$\ = "\n";              # set output record separator

while (<>) {
    chomp;      # strip record separator
    if (!/^c/) {
        s/_/\t/;
        print $_;
    }
}

$ ls *.txt|perl -n -e 'if (!/^c/) { s/_/\t/; s/.txt//; print $_ }'
data    local_cd
data    local_cd_httpd
new     local_cd_mysql
new     local_cd_nagios_content