Find and Print in Unix or Perl Post: 302637467

Sponsored Content

Top Forums Shell Programming and Scripting Find and Print in Unix or Perl Post 302637467 by balajesuri on Wednesday 9th of May 2012 12:41:09 AM

05-09-2012

Registered User

Code:

[root@host dir]# cat>test.pl
#! /usr/bin/perl -w
use strict;

my ($count, $line, @x, $padChar, $arrCnt);

open I, "< input";
for $line (<I>) {
    chomp ($line);
    $count = ($line =~ tr/@/@/);
    @x = (chr(97)..chr(97+$count-1));
    $arrCnt = 0;
    while ($line =~ /@([^@]+)/g) {
        $padChar = $1;
        if ($padChar =~ /^<+$/) {
            print "\$$x[$arrCnt] LP ", length($padChar), "\n";
            $arrCnt++;
        }
        elsif ($padChar =~ /^>+$/) {
            print "\$$x[$arrCnt] RP ", length($padChar), "\n";
            $arrCnt++;
        }
        elsif ($padChar =~ /^<+S+$/) {
            print "\$$x[$arrCnt] LP ", ($padChar=~tr/</</), " Space ", ($padChar=~tr/S/S/), "\n";
            $arrCnt++;
        }
        elsif ($padChar =~ /^>+S+$/) {
            print "\$$x[$arrCnt] RP ", ($padChar=~tr/>/>/), " Space ", ($padChar=~tr/S/S/), "\n";
            $arrCnt++;
        }
    }
}
close I;
[root@host dir]#
[root@host dir]# cat input
@<<<<<<<@>>@>>>>>>>>>>SSS@<<<<<<<<<<<<<<@<<<<<<<<@<<<<<<<@<<<<<<<@<<<<<<<<<<<<<<<<<<<<<<<<@<<<<<<<<<<<<<<SSS
[root@host dir]# ./test.pl
$a LP 7
$b RP 2
$c RP 10 Space 3
$d LP 14
$e LP 8
$f LP 7
$g LP 7
$h LP 24
$i LP 14 Space 3
[root@host dir]#

Is this homework/coursework/college project work?

balajesuri

View Public Profile for balajesuri

Find all posts by balajesuri

10 More Discussions You Might Find Interesting

1. UNIX for Dummies Questions & Answers

Unix find command to print directory and search string

Hi i need to print pathname in which the string present using 'find' command sample output like this Pathname String to be searched ---------- -------------------- /usr/test/myfile get /opt/test/somefile get Thanks in...

2. HP-UX

Print Problem in UNIX. Need to know the option to specify the print paper size

Hi, Could any one please let me know what is the option available in UNIX to print by specifying the paper size? We are using Unix11i. I could n't see any option specified in the 'lp' command to print the report by specifying the size of the paper. It would be of great help to me, if...

3. Shell Programming and Scripting

Perl ? - How to find and print the lowest and highest numbers punched in by the user?

. . . . . .

4. Shell Programming and Scripting

Unix help to find blank lines in a file and print numbers on that line

Hi, I would like to know how to solve one of my problems using expert unix commands. I have a file with occasional blank lines; for example; dertu frthu fghtu frtty frtgy frgtui frgtu ghrye frhutp frjuf I need to edit the file so that the file looks like this;

5. Shell Programming and Scripting

Perl : Find a string and Print full line

Hi Need a perl script to read lines in a file, scan for a string named "APPLE" and write to different file the only lines containing the matched string.

6. Shell Programming and Scripting

Perl : find perl executable binary

Hi I have an oracle perl script running as cron job across multiple unix servers. The issue is the perl binary is found in multiple directories I use in the start of the script ... #!/usr/bin/perl on some servers the script fails because /usr/bin/perl is not present. Is there a way i can...

7. Shell Programming and Scripting

Perl :How to print the o/p of a Perl script on console and redirecting same in log file @ same time.

How can i print the output of a perl script on a unix console and redirect the same in a log file under same directory simultaneously ? Like in Shell script, we use tee, is there anything in Perl or any other option ?

8. Shell Programming and Scripting

find: missing argument to `-exec' while redirecting using find in perl

Hi Friends, Please help me to sort out this problem, I am running this in centos o/s and whenever I run this script I am getting "find: missing argument to `-exec' " but when I run the same code in the command line I didn't find any problem. I am using perl script to run this ...

9. Shell Programming and Scripting

Character Find and replace in Unix or Perl

Hi, I am stuck with an problem and want some help, what i want to do is There is a directory name temp which include file named t1.txt, t2,txt, t3.txt and so on. These files contains data, but there are some bad character also that is % present in the files , I want to write the script...

10. Shell Programming and Scripting

perl lwp find word and print next word :)

hi all, I'm new there, I'm just playing with perl and lwp and I just successfully created a script for log in to a web site with post. I have a response but I would like to have something like this: I have in my response lines like: <div class="sender">mimi020</div> <some html code.....>...

LEARN ABOUT PHP

set_color

set_color(1)							       fish							      set_color(1)

NAME

       set_color - set_color - set the terminal color

set_color - set the terminal color
   Synopsis
       set_color [-v --version] [-h --help] [-b --background COLOR] [COLOR]

   Description
       Change the foreground and/or background color of the terminal. COLOR is one of black, red, green, brown, yellow, blue, magenta, purple,
       cyan, white and normal.

       o -b, --background Set the background color

       o -c, --print-colors Prints a list of all valid color names

       o -h, --help Display help message and exit

       o -o, --bold Set bold or extra bright mode

       o -u, --underline Set underlined mode

       o -v, --version Display version and exit

       Calling set_color normal will set the terminal color to whatever is the default color of the terminal.

       Some terminals use the --bold escape sequence to switch to a brighter color set. On such terminals, set_color white will result in a grey
       font color, while set_color --bold white will result in a white font color.

       Not all terminal emulators support all these features. This is not a bug in set_color but a missing feature in the terminal emulator.

       set_color uses the terminfo database to look up how to change terminal colors on whatever terminal is in use. Some systems have old and
       incomplete terminfo databases, and may lack color information for terminals that support it. Download and install the latest version of
       ncurses and recompile fish against it in order to fix this issue.

Version 1.23.1							  Sun Jan 8 2012						      set_color(1)