Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Storing the Linux command output to an array in perl script
Top Forums Shell Programming and Scripting Storing the Linux command output to an array in perl script Post 302895301 by kumar85shiv on Monday 31st of March 2014 05:48:36 AM
Old 03-31-2014
Storing the Linux command output to an array in perl script
Hi

I am trying to store the output of a command into an array in perl script.

I am able to store but the problem is i am unable to print the array line with one line space. i mean i inserted the \n in loop ...but not getting the result.

I have written like this
Code:
#!/usr/bin/perl
@a = system ("ls -l");
chomp @a;
foreach $i (@a) {
        print "$i\n\n";
}
exit(0);

After the ls -l output only i m getting 2 line space ...i need spcae between every line in the array ...

Pls suggest me
Last edited by Franklin52; 03-31-2014 at 09:07 AM.. Reason: Please use code tags
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

perl: storing regex in array variables trouble

hi this is an example of code: use strict; use warnings; open FILE, "/tmp/result_2"; my $regex="\\ Starting program ver. (.*)"; my $res="Program started, version <$1> - OK.\n"; while (<FILE>) { if ($_ =~ /($regex)/) { print "$res"; } } close FILE; This finds $regex and print... (3 Replies)
Discussion started by: xist
3 Replies

2. Shell Programming and Scripting

[Perl] Accessing array elements within a sed command in Perl script

I am trying to use a script to replace the header of each file, whose filename are stored within the array $test, using the sed command within a Perl script as follows: $count = 0; while ( $count < $#test ) { `sed -e 's/BIOGRF 321/BIOGRF 332/g' ${test} > 0`; `cat 0 >... (2 Replies)
Discussion started by: userix
2 Replies

3. UNIX for Dummies Questions & Answers

Storing lines of output into a script variable

I'm sure this is a simple thing but I can't figure it out. In a script that I'm writing, I'd like to be able to store each line of output from "ls -l" into a variable. Ultimately I'd like to end up with something like: for a in `ls -l` do something with $a doneBut that's reading each... (2 Replies)
Discussion started by: ewoods
2 Replies

4. Shell Programming and Scripting

Perl script for taking inputs from one script and storing them into a document.

Hi. I wanted to create a Perl script which can take the outputs of a Perl script as it's input and temporarily store them in a document. Need help. Thanks.:) (8 Replies)
Discussion started by: xtatic
8 Replies

5. Shell Programming and Scripting

Storing data in perl 2D array

Respected All, Kindly help me out. I have got file listings in a directory like this: -rw-r--r-- 1 root root 115149 2011-11-17 07:15 file1.stat.log -rw-r--r-- 1 root root 115149 2011-11-18 08:15 file2.stat.log -rw-r--r-- 1 root root 115149 2011-11-19 09:15 file3.stat.log -rw-r--r-- 1... (2 Replies)
Discussion started by: teknokid1
2 Replies

6. Shell Programming and Scripting

sed not storing output in shell script

Hello, Following my learning of shell scripting.. I got stuck yet again. If I execute this command on terminal: $ sed "s/off/on/g" file > fileAUX I successfully change the text off to on from file to fileAUX. But the same command is not working inside a shell script. I tested and... (2 Replies)
Discussion started by: quinestor
2 Replies

7. Shell Programming and Scripting

perl : searching for month and storing the date and time in an array

I am writing the code in perl. I have an array in perl and each variable in the array contains the data in the below format Now I need to check the below variable w.r.t system month I need to store the date and time(Tue Aug 7 03:54:12 2012) from the below data into file if contains only 'Aug'... (5 Replies)
Discussion started by: giridhar276
5 Replies

8. Shell Programming and Scripting

Storing command output in an array

Hi, I want keep/save one command's output in an array and later want to iterate over the array one by one for some processing. instead of doing like below- for str in `cat /etc/passwd | awk -F: '$3 >100 {print $1}' | uniq` want to store- my_array = `cat /etc/passwd | awk -F: '$3 >100 {print... (4 Replies)
Discussion started by: sanzee007
4 Replies

9. Shell Programming and Scripting

Storing filenames in an array in shell script

hi, i am writing a shell script in which i read a line in a variable. FNAME="s1.txt s2.txt s3.txt s4.txt s5.txt" i want to create a array and store single file names in a array.. so the array should contain arr="s1.txt" arr="s2.txt" arr="s3.txt" arr="s4.txt" arr="s5.txt" how to... (3 Replies)
Discussion started by: Little
3 Replies

10. Shell Programming and Scripting

Storing command output in a variable and using cut/awk

Hi, My aim is to get the md5 hash of a file and store it in a variable. var1="md5sum file1" $var1 The above outputs fine but also contains the filename, so somthing like this 243ASsf25 file1 i just need to get the first part and put it into a variable. var1="md5sum file1"... (5 Replies)
Discussion started by: JustALol
5 Replies

LEARN ABOUT DEBIAN

devel::trace

Trace(3pm)						User Contributed Perl Documentation						Trace(3pm)

NAME

       Devel::Trace - Print out each line before it is executed (like "sh -x")

SYNOPSIS

	 perl -d:Trace program

DESCRIPTION

       If you run your program with "perl -d:Trace program", this module will print a message to standard error just before each line is executed.
       For example, if your program looks like this:

	       #!/usr/bin/perl

	       print "Statement 1 at line 4
";
	       print "Statement 2 at line 5
";
	       print "Call to sub x returns ", &x(), " at line 6.
";

	       exit 0;

	       sub x {
		 print "In sub x at line 12.
";
		 return 13;
	       }

       Then  the "Trace" output will look like this:

	       >> ./test:4: print "Statement 1 at line 4
";
	       >> ./test:5: print "Statement 2 at line 5
";
	       >> ./test:6: print "Call to sub x returns ", &x(), " at line 6.
";
	       >> ./test:12:   print "In sub x at line 12.
";
	       >> ./test:13:   return 13;
	       >> ./test:8: exit 0;

       This is something like the shell's "-x" option.

DETAILS

       Inside your program, you can enable and disable tracing by doing

	   $Devel::Trace::TRACE = 1;   # Enable
	   $Devel::Trace::TRACE = 0;   # Disable

       or

	   Devel::Trace::trace('on');  # Enable
	   Devel::Trace::trace('off'); # Disable

       "Devel::Trace" exports the "trace" function if you ask it to:

	   import Devel::Trace 'trace';

       Then if you want you just say

	   trace 'on';		       # Enable
	   trace 'off'; 	       # Disable

TODO

       o   You should be able to  send the trace output to the filehandle of your choice.

       o   You should be able to specify the format of the output.

       o   You should be able to get the output into a string.

       We'll see.

LICENSE

       Devel::Trace 0.11 and its source code are hereby placed in the public domain.

Author
       Mark-Jason Dominus (C<mjd-perl-trace@plover.com>), Plover Systems co.  See the C<Devel::Trace.pm> Page at
       http://www.plover.com/~mjd/perl/Trace for news and upgrades.

perl v5.14.2							    2012-02-16								Trace(3pm)
All times are GMT -4. The time now is 09:18 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy