6 More Discussions You Might Find Interesting
1. Solaris
Hi,
First post here!
I have a Sun V210 that I use occasionally for build testing things big-endian. I switched it on the other day, at it aint comin' up. I was wondering if anyone on this fine forum knows if it can be brought back from the dead.
With the SCC card in, and conencted to... (22 Replies)
Discussion started by: vext01
22 Replies
2. Shell Programming and Scripting
Hi,
I've FTPed some text files from windows to my Linux workstation. I'm finding that the characters for quotes (") have been replaced with control characters <93> and <94>. and apostrophes (') have been replaced with what looks like control character <92>.
I have attempted the following... (15 Replies)
Discussion started by: larryjmoon
15 Replies
3. Solaris
UNIX Friends,
Came in this morning to a downed E450 - thought it had been a power disaster. But wasn't! Machine had apparently shut itself down.
All three power supplies are double-green, and case interlock switch is closed...
As this is the first time we've had such a catastrophic(?)... (5 Replies)
Discussion started by: Dr Lou
5 Replies
4. AIX
Greetings Aix gurus,
I have been appointed the task to port my SAS environment on HP-UX to AIX...
I have been able to solve most issues but I am stuck with the following lines (these were easy to find, since in shell scripts but I found out that there are plenty more and encapsulated in SAS... (1 Reply)
Discussion started by: vbe
1 Replies
5. UNIX for Dummies Questions & Answers
MY question is :
First I create emergency_disk successful ,and then I create emergency_rec with command
" /sbin/emergency_rec ctape1 " (in single user mode)
it prompt me as :
"/tmp is busy "
and
"/usr/tmp/hwrdmon open failed errno 0X2
adapter enquiry failed for 1 adapter "
and it... (1 Reply)
Discussion started by: luckylwf
1 Replies
6. UNIX for Dummies Questions & Answers
Who could tell me how to learn unix fastly? (4 Replies)
Discussion started by: dsun5
4 Replies
LEARN ABOUT OSX
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.5 2012-11-03 TAP::Parser::Source::Perl(3pm)