Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Help with convert awk script into perl
Top Forums Shell Programming and Scripting Help with convert awk script into perl Post 302622553 by Ygor on Thursday 12th of April 2012 10:18:29 AM
Old 04-12-2012
You can convert awk to perl using a2p...
Code:
$ 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 $_;
    }
}

This User Gave Thanks to Ygor For This Post:
perl_beginner
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

awk to perl convert

Dear Collegue Do anybody help me to convert this AWK script to Perl script { for (i = 2; i <= length ($0); i++) { x = substr($0, i , 1) if (c > 0) { b = b x if (x == "(") c++ ... (2 Replies)
Discussion started by: jaganadh
2 Replies

2. Shell Programming and Scripting

convert unix script to perl

Hi, I have these lines in a unix script: FILEONE = /<filepath1>/<filename1.txt> FILENEW = /<filepath2>/<filename2.txt> head -5 $FILEONE | sed '1d' > $FILENEW PARAM1 = `cat $FILENEW | awk '{print $2;}' ` echo "Param1 Value: $PARAM1" What's the correct syntax of the above lines if same... (2 Replies)
Discussion started by: gholdbhurg
2 Replies

3. Shell Programming and Scripting

Need to convert ksh script to Perl

Guys I am new to this forum, this may seem like a cheeky request. I have been asked by my manager to convert this ksh script to Perl. I do not have the foggiest about Perl and would appreciate any help on this. Basically this scipt automates a recovery process for EMC Legato Networker. It will... (1 Reply)
Discussion started by: rahimm1
1 Replies

4. Shell Programming and Scripting

Convert .sh script into perl

Good afternoon to you all I really need your help I have the following script developed in .sh and I need to convert it into perl. Can someone help me do it please? Here´s the script: ############################################## ############################################## ... (3 Replies)
Discussion started by: zarahel
3 Replies

5. Shell Programming and Scripting

Help: how to convert perl script to awk in windows2003 server environment

For the following perl script, can anyone help to convert it to awk statement in windows2003 server environment ? Code: foreach $k (sort {$a <=> $b} keys %psnum) (1 Reply)
Discussion started by: tojzz
1 Replies

6. Shell Programming and Scripting

HELP on Perl array / sorting - trying to convert Korn Shell Script to Perl

Hi all, Not sure if this should be in the programming forum, but I believe it will get more response under the Shell Programming and Scripting FORUM. Am trying to write a customized df script in Perl and need some help with regards to using arrays and file handlers. At the moment am... (3 Replies)
Discussion started by: newbie_01
3 Replies

7. Shell Programming and Scripting

Convert awk command to Perl

Hi all; I have a Perl script that uses this awk command wrapped in a "system" call; it works exactly as I want it; however I want to keep this a Perl script and have very few if any "system" command...so the question; can someone help me code this in Perl please ... i have tried an now I am... (1 Reply)
Discussion started by: gvolpini
1 Replies

8. Shell Programming and Scripting

Convert rows into columns using awk or perl

hi friends, i am able to parse cvs diff file using bit of cut and grep commands to produce following output in text file '''cvs-diff.txt''' Package-Name = dev-freetype. Old-Version = 2.4.8 New-Version = 2.4.10 Patches-removed = freetype-2.4.8-cross-compile.patch... (2 Replies)
Discussion started by: alexzander18
2 Replies

9. Shell Programming and Scripting

Convert awk line into perl

I have an awk statement in a ksh script that looks for a certain string then looks at each line after to find another match. The match could be the next line or second down and it works well. nawk 'BEGIN {FS=RS;RS="!"} /interface loopback0/ {for(i=1;i<=NF; i++) if ($i ~ /ip... (5 Replies)
Discussion started by: numele
5 Replies

10. Shell Programming and Scripting

Can someone convert this python script to perl

There is a python script that I would like converted to a perl script. If someone has the time to convert the script I would appreciate it. You can find the script below: reboot-mb8600/reboot-mb8600.py at master . j4m3z0r/reboot-mb8600 . GitHub #!/usr/bin/python ''' A hacky script to... (1 Reply)
Discussion started by: azdps
1 Replies

LEARN ABOUT DEBIAN

dbf_dump

DBF_DUMP(1p)						User Contributed Perl Documentation					      DBF_DUMP(1p)

NAME

       dbf_dump - Dump the record of the dbf file

FORMAT

	       dbf_dump [options] files

       where options are

	       --rs	       output record separator (default newline)
	       --fs	       output field separator (default colon)
	       --fields        comma separated list of fields to print (default all)
	       --undef	       string to print for NULL values (default empty)
	       --memofile      specifies unstandard name of attached memo file
	       --memosep       separator for dBase III dbt's (default x1ax1a)

	       --nomemo        do not try to read the memo (dbt/fpt) file
	       --info	       print info about the file and fields
		       with additional --SQL parameter, outputs the SQL create table
	       --version       print version of the XBase library
	       --table	       output in nice table format (only available when
		       Data::ShowTable is installed, overrides rs and fs)

SYNOPSIS

	       dbf_dump -fields id,msg table.dbf
	       dbf_dump -fs=' : ' table
	       dbf_dump --nomemo file.dbf

	       ssh user@host 'cat file.dbf.gz' | gunzip - | dbf_dump -

DESCRIPTION

       Dbf_dump prints to standard output the content of dbf files listed. By default, it prints all fields, separated by colons, one record on a
       line. The output record and column separators can be changed by switches on the command line. You can also ask only for some fields to be
       printed.

       The content of associated memo files (dbf, fpt) is printed for memo fields, unless you use the "--nomemo" option.

       You can specify reading the standard input by putting dash (-) instead of file name.

AVAILABLE FROM

       http://www.adelton.com/perl/DBD-XBase/

AUTHOR

       (c) 1998--2011 Jan Pazdziora.

SEE ALSO

       perl(1); XBase(3pm); index_dump(1p)

perl v5.12.4							    2011-08-31							      DBF_DUMP(1p)
All times are GMT -4. The time now is 12:43 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy