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)
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)
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)
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)
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)
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)
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)
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)
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)
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
atr_analysis
ATR_ANALYSIS(1p) User Commands ATR_ANALYSIS(1p)NAME
ATR_analysis - analyse a smart card ATR
SYNOPSIS
ATR_analysis [ATRstring]
DESCRIPTION
ATR_analysis is used to parse the ATR (Answer To Reset) sent by a smart card.
The command also tries to find the card model using an ATR database stored in a text file smartcard_list.txt.
The smartcard_list.txt file is searched in ./, /usr/local/pcsc/ and /usr/share/pcsc/ directories.
Exemple:
$ ATR_analysis '3B A7 00 40 18 80 65 A2 08 01 01 52'
ATR: 3B A7 00 40 18 80 65 A2 08 01 01 52
+ TS = 3B --> Direct Convention
+ T0 = A7, Y(1): 1010, K: 7 (historical bytes)
TB(1) = 00 --> Programming Param P: 0, I: 0
TD(1) = 40 --> Y(i+1) = 0100, Protocol T = 0
-----
TC(2) = 18 --> Work waiting time: 960 x 24 x (Fi/F)
+ Historical bytes: 80 65 A2 08 01 01 52
Possibly identified card:
3B A7 00 40 18 80 65 A2 08 01 01 52
Gemplus GPK8000
BUGS
Maybe many bugs since I am not a ISO 7816 expert.
FILES
smartcard_list.txt
SEE ALSO pcscd(8), pcsc_scan(1)AUTHOR
Ludovic Rousseau <ludovic.rousseau@free.fr>
Version: 1.3 October 2005 ATR_ANALYSIS(1p)