The first thing I noticed was the wrong shebang/hashbang line, it should be #!/usr/bin/perl, but since you are running your script on Windows, it is ignored anyway.
Regarding your issue with output redirection, I suggest to try this:
Let me know if that worked.
Regarding the extraction part, I suggest doing it in Perl on-the-fly, without redirecting it to outfile first.
If you need help with this, you'll need to post a full sample output of the mentioned net user command.
Hi,
I want to extract some part of a pattern that matches my requirement in a string with PERL. A case in point is a string like:
$eqtst="abh nmae res = 10 s abh nmae req = 10 s";
from which I want the words preceding the "=" symbol.
Previously I was assured that there would be only 2 such... (4 Replies)
Hi
I want to create self extraction archive file(exe) that should support in windows with out any zip software.
I know pkzip does it. But this is licensed software. Is there any command that creates self extraction exe file for free in solaries 5.10
Similar to command.
pkzipc -add -max... (2 Replies)
I have a string stored in a variable. For instance,
$str = " Opcode called is : CM_OP_xxx "
where xxx changes dynamically and can be either LOGIN or SEARCH..... depends on runtime.
For example :
$str = " Opcode called is : CM_OP_SEARCH "
$str = " Opcode called is : CM_OP_LOGIN "
I... (3 Replies)
the log contains mathematical operation as follows
fm_void_mathematics : PCM_OP_MATHS input function
PIN_FLD_NUM1 INT 1
PIN_FLD_NUM2 INT 2
PIN_FLD_RESULTS int
PIN_FLD_OUT INT *
D Wed Sep 16 05:40:22 2009 solaris_testing
fm_void_add :
PIN_FLD_SUM int 3
D Wed Sep 16 05:40:22 2009... (1 Reply)
Hi All,
Need help configuring Active Perl on Windows Vista.
I am trying to install Active Perl on Windows Vista.
The version of Active Perl i am trying to install is : ActivePerl 5.10.1 Build 1006
After installing it through cmd, When i try to run perl -v to check the version, i get the... (2 Replies)
Hello,
I work on Windows and I use Putty to access a remote UNIX server.
I am trying to build a shell script that will have as main task to open the
Windows command prompt (cmd) and run some Windows commands thereafter. The commands are actually file transfer commands that will download a file... (14 Replies)
Hi,
I want to print machine details in windows.
In UNIX it is easily available by the command
uname -X
Is there any command like this in windows to get those details..
can anybody help me on this..
Thanks in advance.
~arup (1 Reply)
Hello,
There's a third-party application's command that shows the application's status like "tail -f verybusy.log". When use the command, the output comes every 1-sec. but when it goes in a script below the output comes every 8-sec...What is the problem and how can I fix it?
open(CMD,... (2 Replies)
i have multiple files like
how to do list files from new_30 to new_50
i have tried this command but it wont work
dir new*{30-50}.txt
my exact requirement is to get line count of these files
the command which work is
FOR %i IN (new*.txt) DO find %i /c /v ""
but at the... (1 Reply)
Discussion started by: sagar_1986
1 Replies
LEARN ABOUT SUSE
tap::parser::source::perl
TAP::Parser::Source::Perl(3pm) Perl Programmers Reference Guide TAP::Parser::Source::Perl(3pm)NAME
TAP::Parser::Source::Perl - Stream Perl output
VERSION
Version 3.17
SYNOPSIS
use TAP::Parser::Source::Perl;
my $perl = TAP::Parser::Source::Perl->new;
my $stream = $perl->source( [ $filename, @args ] )->get_stream;
DESCRIPTION
Takes a filename and hopefully returns a stream from it. The filename should be the name of a Perl program.
Note that this is a subclass of TAP::Parser::Source. See that module for more methods.
METHODS
Class Methods
"new"
my $perl = TAP::Parser::Source::Perl->new;
Returns a new "TAP::Parser::Source::Perl" object.
Instance Methods
"source"
Getter/setter the name of the test program and any arguments it requires.
my ($filename, @args) = @{ $perl->source };
$perl->source( [ $filename, @args ] );
"croak"s if $filename could not be found.
"switches"
my $switches = $perl->switches;
my @switches = $perl->switches;
$perl->switches( @switches );
Getter/setter for the additional switches to pass to the perl executable. One common switch would be to set an include directory:
$perl->switches( ['-Ilib'] );
"get_stream"
my $stream = $source->get_stream($parser);
Returns a stream of the output generated by executing "source". Must be passed an object that implements a "make_iterator" method.
Typically this is a TAP::Parser instance.
"shebang"
Get the shebang line for a script file.
my $shebang = TAP::Parser::Source::Perl->shebang( $some_script );
May be called as a class method
"get_taint"
Decode any taint switches from a Perl shebang line.
# $taint will be 't'
my $taint = TAP::Parser::Source::Perl->get_taint( '#!/usr/bin/perl -t' );
# $untaint will be undefined
my $untaint = TAP::Parser::Source::Perl->get_taint( '#!/usr/bin/perl' );
SUBCLASSING
Please see "SUBCLASSING" in TAP::Parser for a subclassing overview.
Example
package MyPerlSource;
use strict;
use vars '@ISA';
use Carp qw( croak );
use TAP::Parser::Source::Perl;
@ISA = qw( TAP::Parser::Source::Perl );
sub source {
my ($self, $args) = @_;
if ($args) {
$self->{file} = $args->[0];
return $self->SUPER::source($args);
}
return $self->SUPER::source;
}
# use the version of perl from the shebang line in the test file
sub _get_perl {
my $self = shift;
if (my $shebang = $self->shebang( $self->{file} )) {
$shebang =~ /^#!(.*perl.*?)(?:(?:s)|(?:$))/;
return $1 if $1;
}
return $self->SUPER::_get_perl(@_);
}
SEE ALSO
TAP::Object, TAP::Parser, TAP::Parser::Source,
perl v5.12.1 2010-04-26 TAP::Parser::Source::Perl(3pm)