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
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
#! /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
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
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
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
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
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
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
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
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
LEARN ABOUT DEBIAN
dist::zilla::plugin::run
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)