Sponsored Content
Full Discussion: Perl parsing help required.
Top Forums UNIX for Advanced & Expert Users Perl parsing help required. Post 302595760 by balajesuri on Saturday 4th of February 2012 10:38:04 PM
Old 02-04-2012
$l[($.-1)%4].="$_ " => $. refers to line number. ($.-1)%4 would always be either 0, 1, 2 or 3. So, what's happening here is: Each line is appended to the elements of an array in index 0, 1, 2 & 3. ($x .= $y would mean concatenate $y to $x and store result it in $x, same as $x = $x . $y)

Here's what the array @l will contain in each run:
Run #: Elements in @l separated by comma
Run 1: 5201
Run 2: 5201, 5202
Run 3: 5201, 5202, 5203
Run 4: 5201, 5202, 5203, 5204
Run 5: 5201 1234, 5202, 5203, 5204
Run 6: 5201 1234, 5202 2345, 5203, 5204
Run 7: 5201 1234, 5202 2345, 5203 3456, 5204
Run 8: 5201 1234, 5202 2345, 5203 3456, 5204 4567
Run 9: 5201 1234 6210, 5202 2345, 5203 3456, 5204 4567
Run 10: 5201 1234 6210, 5202 2345 6220, 5203 3456, 5204 4567
Run 11: 5201 1234 6210, 5202 2345 6220, 5203 3456 6230, 5204 4567
Run 12: 5201 1234 6210, 5202 2345 6220, 5203 3456 6230, 5204 4567 6240

Finally, array @l contains 4 elements viz. "5201 1234 6210, 5202 2345 6220, 5203 3456 6230, 5204 4567 6240". Now printing each element in a line would give:
5201 1234 6210
5202 2345 6220
5203 3456 6230
5204 4567 6240
These 2 Users Gave Thanks to balajesuri For This Post:
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl help required

hi previously this program used to ask for user input to perform operation so i have done the modifications but problem is that i have to create new file and redirect that file as input to this file and i want to avoid that so i made following modifications in program and i am not sure if its... (1 Reply)
Discussion started by: zedex
1 Replies

2. Shell Programming and Scripting

Perl parsing compared to Ksh parsing

#! /usr/local/bin/perl -w $ip = "$ARGV"; $rw = "$ARGV"; $snmpg = "/usr/local/bin/snmpbulkget -v2c -Cn1 -Cn2 -Os -c $rw"; $snmpw = "/usr/local/bin/snmpwalk -Os -c $rw"; $syst=`$snmpg $ip system sysName sysObjectID`; sysDescr.0 = STRING: Cisco Internetwork Operating System Software... (1 Reply)
Discussion started by: popeye
1 Replies

3. Shell Programming and Scripting

Perl Script required...

Hi All, Windows Platform. Perl Scripting. I have a file called 'hostnames.txt' contains hostname entries one by one line. Script has to perform the following command for each entry in that file. ovtopofix -G <hostname> Please anybody give me the script on this requirement. Thanks,... (1 Reply)
Discussion started by: ntgobinath
1 Replies

4. UNIX for Advanced & Expert Users

Perl - Help required

I am trying to upload a file to a SQL database table. The column type is IMAGE. I am looking for a solution to upload a word doc file. I tried 3 approaches. 1) my $fileToStore = "mytest.doc"; open IPFILE, "<", $name; binmode IPFILE; while (<IPFILE>) { $fileToStore .= $_; } close IPFILE;... (1 Reply)
Discussion started by: b.paramanatti
1 Replies

5. Shell Programming and Scripting

perl required output

Hi, I have a string in log file from that i need to pick the username. the string is like this-- pid 2172 tid 3124: 160: 10110847: userName : pid 2172 tid 3124: 160: 10110847: userName : pid 2172 tid 3124: 160: 10110847: userName : pid 2172 tid 3124: 160: 10110847: userName : pid... (5 Replies)
Discussion started by: namishtiwari
5 Replies

6. Shell Programming and Scripting

Parsing information in perl

So i'm trying to write a perl script that logins into a network switch via ssh: #sh ip traffic IP statistics: Rcvd: 1460119147 total, 563943377 local destination 0 format errors, 0 checksum errors, 48401998 bad hop count 0 unknown protocol, 8379279 not a gateway ... (2 Replies)
Discussion started by: streetfighter2
2 Replies

7. Shell Programming and Scripting

Help required in parsing a csv file

Hi Members, I am stuck with the following problem. Request your kind help I have an csv file which contains, 1 header record, data records and 1 footer record. Sample is as below Contents of cm_update_file_101010.csv -------------------------------------------------- ... (6 Replies)
Discussion started by: ramakanth_burra
6 Replies

8. Shell Programming and Scripting

PERL: Help required exact match

Hello, My requirement is to iterate over all the lines of a file and compare them with a word and perform some operations if exact match is found. For the snippet below, it works even if contents of line include "diff" and "diff:". I want it to work only if it is exactly "diff" and is not... (2 Replies)
Discussion started by: sarbjit
2 Replies

9. Shell Programming and Scripting

Perl script required for processing the data

I have following result.log file (always has 2 lines) which I need to process, cat result.log name.cmd.method,"result","abc","xyz"; name="hello,mine.12345,"&"tree"&" xyz "&" tree "&" xyz", data="way,"&" 1"&"rate-me"&"1"&"rate-me",str="",ret=""; now I need to extract the strings/data as... (4 Replies)
Discussion started by: perlDiva
4 Replies

10. Shell Programming and Scripting

Xsltproc showing error in parsing xml...help required

I need to parse text between xml tags using xsltproc. It seems the easiest way. Here the Input file looks like <?xml version="1.0" ?> - <tag:ROOT xmlns:as="http://some.org/some.xsd" xmlns:tag="http://www.tag.org/schemas" xmlns:xs="http://some.org/"> - <tag:L1> - <tag:L2> - <tag:L3> ... (2 Replies)
Discussion started by: alpha_1
2 Replies
Dist::Zilla::Plugin::Run(3pm)				User Contributed Perl Documentation			     Dist::Zilla::Plugin::Run(3pm)

NAME
Dist::Zilla::Plugin::Run - Run external commands at specific phases of Dist::Zilla VERSION
version 0.013 SYNOPSIS
[Run::BeforeRelease] run = script/myapp_before1.pl %s run = script/myapp_before2.pl %n %v [Run::Release] run = script/myapp_deploy1.pl %s run = deployer.pl --dir %d --tgz %a --name %n --version %v [Run::AfterRelease] run = script/myapp_after.pl %s %v ; %p can be used as the path separator if you have contributors on a different OS run = script%pmyapp_after.pl %s %v DESCRIPTION
Run arbitrary commands at various Dist::Zilla phases. CONVERSIONS
The following conversions/format specifiers are defined for passing as arguments to the specified commands (though not all values are available at all phases). o %a the archive of the release (available to all *Release phases) o %d the directory in which the dist was built (not in "BeforeBuild") o %n the dist name o %p path separator ('/' on Unix, '\' on Win32... useful for cross-platform dist.ini files) o %v the dist version o %x full path to the current perl interpreter (like $^X but from Config) Additionally %s is retained for backward compatibility. Each occurrence is replaced by a different value (like the regular "sprintf" function). Individual plugins define their own values for the positional replacement of %s. AUTHOR
Torsten Raudssus <torsten@raudssus.de> <http://www.raudssus.de/> COPYRIGHT AND LICENSE
This software is copyright (c) 2010 by Raudssus Social Software <http://www.raudssus.de/>. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. perl v5.12.4 2011-11-09 Dist::Zilla::Plugin::Run(3pm)
All times are GMT -4. The time now is 05:34 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy