04-10-2012
9 More Discussions You Might Find Interesting
1. Post Here to Contact Site Administrators and Moderators
A few hours ago I made several reasonable posts to this forum and now they have dissapeared.
I read and followed the rules, and I sure didn't break any, but gone they are :(
I know I only joined the forum today, but do the posts have to be authorised or something?
... (14 Replies)
Discussion started by: cw1972
14 Replies
2. SuSE
I posted three specific queries relating to Suse earlier today but they've disappeared.
I originally incorrectly posted them in the Unix begiiners forum, edited them out from there and re-posted under Linux.
I'm guessing they've been mistaken for some kind of flood post as they have the same... (3 Replies)
Discussion started by: Mark Ward
3 Replies
3. What is on Your Mind?
:D anyone hear from ygor..?
haven't seen him post in a while... wonder what he is up to..!
the last i heard he was the D25khan.. that was him right guys ???
being a newbie myself that is one dude that i admire. him Norsk, Perdebro, RTM , Google and Zazzybob all real genius.. and the most... (2 Replies)
Discussion started by: moxxx68
2 Replies
4. Shell Programming and Scripting
The second script seems not to work. (3 Replies)
Discussion started by: endeavour1985
3 Replies
5. UNIX for Dummies Questions & Answers
I've been using a mkisofs line like this for years without problem
# mkisofs -J -R -V 'Vol Label' -o /output/path/FILE.ISO /input/path/
Now, however, it gives a UTR-8 character message at the start
INFO: UTF-8 character encoding detected by locale settings.
Assuming UTF-8... (0 Replies)
Discussion started by: Bobby
0 Replies
6. UNIX for Dummies Questions & Answers
Hello,
I have created a dosrename script and it was working fine unitl today. I can't think what i have changed (don't think i have to be honest). The error is when i run the script it says the file i am trying to rename does not exist when it blatently does.
Or is it a typo when i run the... (4 Replies)
Discussion started by: jazz8146
4 Replies
7. Solaris
what happened to admintool in Solaris10? (2 Replies)
Discussion started by: mndavies
2 Replies
8. What is on Your Mind?
I just found the website coolerbooks.com a couple weeks ago. It was a site that had loads of free ebooks for download.
But now it seems to have been hijacked by some Microsoft search thing.
There was an article last year claiming it teamed with Google (the anti-Microsoft!) to offer the... (2 Replies)
Discussion started by: KenJackson
2 Replies
9. Shell Programming and Scripting
what does today=${1:-${today}} mean???
I saw a script which has these two lines:
today=`date '+%y%m%d'`
today=${1:-${today}}
but both gives the same value for $today
user:/export/home/user>today=`date '+%y%m%d'`
user:/export/home/user>echo $today
120326... (2 Replies)
Discussion started by: Vidhyaprakash
2 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)