Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Piping and assigning output to a variable in Perl
Top Forums Shell Programming and Scripting Piping and assigning output to a variable in Perl Post 302315256 by Raynon on Tuesday 12th of May 2009 02:15:44 AM
Old 05-12-2009
Hi,

I have the below code.
But it doesn;t seem to work.
Can you help ?


Code:
use File::stat;
my @file_match = (<*$tester*st*>);
for ( $count = 1 ; $count <= $#file_match ; $count++ ) {
        open (FILE_MATCHED,"< $file_match[$count]");
        open (LIST,">> $TEMP/list");
        print LIST "$file_match[$count]\n";
        my @STAT = stat(FILE_MATCHED);
        push (my @time_stamp , $STAT[10]);
        print LIST "$file_match[$count] $STAT[10]\n";
        close (LIST);
        close (FILE_MATCHED);
   
}
my @sorted = sort { $a <=> $b } my @time_stamp;
open (LIST, "< $TEMP/list");
        while ( $line=<LIST> ) {
                my @Fld = split(' ', $line);
                print "$#sorted\n";
                if ( $Fld[2] == $sorted[$#sorted] ) {
                        my $ST_file = sprintf{"%s",$Fld[1]};
                }
        };
close (LIST);
print "$ST_file\n";

 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Assigning output of command to a variable

Hi, I'm trying to assign the output of a command to a variable and then concat it with another string, however, it keeps overwriting the original string instead of adding on to the end of the string. Contents of test.txt --> This is a test var1="`head -n 1 test.txt`" echo $var1 (This is a... (5 Replies)
Discussion started by: oma04
5 Replies

2. Shell Programming and Scripting

assigning nawk output to shell variable

Hello friends, I doing the follwing script , but found problem to store it to a shell variable. #! /bin/sh for temp in `find ./dat/vector/ -name '*.file'` do echo $temp nawk -v temp=$temp 'BEGIN{ split(temp, a,"\/"); print a}' done output: ./dat/vector/drf_all_002.file... (6 Replies)
Discussion started by: user_prady
6 Replies

3. Shell Programming and Scripting

Assigning output of command to a variable in shell

hi, I want to assign find command result into some temporary variable: jarPath= find /opt/lotus/notes/ -name $jarFile cho "the jar path $jarPath" where jarPath is temporary variable. Can anybody help on this. Thanks in advance ----Sankar (6 Replies)
Discussion started by: sankar reddy
6 Replies

4. Shell Programming and Scripting

Assigning output to a variable

I am new to unix shell scripting. I was trying to convert each lines in a file to upper case. I know how to convert the whole file. But here i have to do line by line. I am getting it in the below mentioned script #!/bin/bash #converting lower to upper in a file #tr "" "" <file1... (3 Replies)
Discussion started by: jpmena
3 Replies

5. Shell Programming and Scripting

Assigning output of a command to variable

When I run time -p <command>, it outputs: real X.XX user X.XX sys X.XXwhere X.XX is seconds. How I can take just that first number output, the seconds of real time, and assign that to a variable? (9 Replies)
Discussion started by: jeriryan87
9 Replies

6. Shell Programming and Scripting

assigning SED output to a variable = trouble!

i'm on a Mac running BSD unix. i have a script in which i ask the user to input the name of a mounted volume. i then call SED to substitute backslashes and spaces in place of the spaces. that looks like this: echo "Enter the name of the volume" read Volume echo "You've chosen \"$Volume\""... (7 Replies)
Discussion started by: hungryd
7 Replies

7. Shell Programming and Scripting

piping output from PHP file into variable

Hi. I have a script like so: #!/bin/bash download='php /var/www/last.php' echo $download if $downloadHow do I pipe the output of the php file into a variable, as when i run the if statement, it just echos the file output to the screen and does not actually consider the output (it will be... (2 Replies)
Discussion started by: daydreamer
2 Replies

8. Shell Programming and Scripting

Assigning output from awk to variable

I have a script whose contents are as below result= awk 's=100 END {print s }' echo "The result is" $result The desired output is The result is 100 My script is running without exiting and i am also not getting the desired output. Please help (5 Replies)
Discussion started by: bk_12345
5 Replies

9. Shell Programming and Scripting

Oneliner ---split string to character by piping shell output to perl

Hello, I was trying to split a string to characters by perl oneliner. echo "The quick brown fox jumps over the lazy dog" | perl -e 'split // ' But did not work as with bash script pipe: echo "The quick brown fox jumps over the lazy dog" | fold -w1 | sort | uniq -ic 8 1 T 1... (6 Replies)
Discussion started by: yifangt
6 Replies

10. Shell Programming and Scripting

Assigning bc output to a variable

I'm converting decimal to integer with bc, and I'd like to assign the integer output from bc to a variable 'val'. E.g. In the code below: If b is 5000.000, lines 6 and 8 will output: 5000 (5000.000+0.5)/1 | bc I'd like val to take the value 5000 though, rather than 5000.000 Does someone... (3 Replies)
Discussion started by: pina
3 Replies

LEARN ABOUT DEBIAN

devel::repl::profile

Devel::REPL::Profile(3pm)				User Contributed Perl Documentation				 Devel::REPL::Profile(3pm)

NAME

       Devel::REPL::Profile - code to execute when re.pl starts

SYNOPSIS

	package Devel::REPL::Profile::MyProject;

	use Moose;
	use namespace::clean -except => [ 'meta' ];

	with 'Devel::REPL::Profile';

	sub apply_profile {
	    my ($self, $repl) = @_;
	    # do something here
	}

	1;

DESCRIPTION

       For particular projects you might well end up running the same commands each time the REPL shell starts up - loading Perl modules, setting
       configuration, and so on.

       A mechanism called profiles exists to let you package and distribute these start-up scripts, as Perl modules.

USAGE

       Quite simply, follow the "SYNOPSIS" section above to create a boilerplate profile module. Within the "apply_profile" method, the $repl
       variable can be used to run any commands as the user would, within the context of their running "Devel::REPL" shell instance.

       For example, to load a module, you might have something like this:

	sub apply_profile {
	    my ($self, $repl) = @_;
	    $repl->eval('use Carp');
	}

       As you can see, the "eval" method is used to run any code. The user won't see any output from that, and the code can "safely" die without
       destroying the REPL shell. The return value of "eval" will be the return value of the code you gave, or else if it died then a
       "Devel::REPL::Error" object is returned.

       If you want to load a "Devel::REPL" plugin, then use the following method:

	$repl->load_plugin('Timing');

       The "load_plugin" and "eval" methods should cover most of what you would want to do before the user has access to the shell. Remember that
       plugin features are immediately available, so you can load for example the "LexEnv" plugin, and then declare "my" variables which the user
       will have access to.

   Selecting a Profile
       To run the shell with a particular profile, use the following command:

	system$ re.pl --profile MyProject

       Alternatively, you can set the environment variable "DEVEL_REPL_PROFILE" to MyProject.

       When the profile name is unqualified, as in the above example, the profile is assumed to be in the "Devel::REPL::Profile::" namespace.
       Otherwise if you pass something which contains the "::" character sequence, it will be loaded as-is.

AUTHOR

       Matt S Trout - mst (at) shadowcatsystems.co.uk (<http://www.shadowcatsystems.co.uk/>)

LICENSE

       This library is free software under the same terms as perl itself

perl v5.14.2							    2012-06-02						 Devel::REPL::Profile(3pm)
All times are GMT -4. The time now is 05:56 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy