7 More Discussions You Might Find Interesting
1. UNIX for Advanced & Expert Users
Hello:
I have created a REST service that is currently running on a Unix server. I issued a cURL command to call the REST service and verified it's working as designed; curl --request POST command and the url I used to test it is localhost:8090/someservice/somename. I have a teammate who now... (6 Replies)
Discussion started by: asthern14
6 Replies
2. Shell Programming and Scripting
My input is:
a.txt computer
b.txt
c.txt
e.txt
I want my output to be:
a.txt computer
b.txt computer
c.txt computer
e.txt computer
There are about 100000 text files having the same format as my input data. What I am doing now is too slow and also requires plenty of scripts.
1. wc -l all... (3 Replies)
Discussion started by: shoaibjameel123
3 Replies
3. Shell Programming and Scripting
Hi Guys,
is there any way to sort a files from excel in shell?
$cat file1
asa003 hekk
asa341 no more
asa012 try a d g
asa001 a
asa111 this is just a sample for long string
Desire output:
asa001 a
asa003 hekk
asa012 try a d g
asa111 this is just a sample for long string
asa341... (5 Replies)
Discussion started by: kenshinhimura
5 Replies
4. Programming
I would like to seek help on my LED REST API. I have finished constructed my basic REST API for my Raspberry PI. What I'm trying to do now is allow my LED to light up whenever I key localhost:3000/7/1 and key localhost:3000/7/0 to switch off. But my problem now is my REST API can't works and hope... (0 Replies)
Discussion started by: aoiregion
0 Replies
5. Gentoo
i have gentoo and i dont know what is my password user admin(root)
how i can to rest my passord?
thanks. (2 Replies)
Discussion started by: turivnkl
2 Replies
6. Solaris
Hi
When I installed opensolaris, I installed it on a 20GB partition. How do I make use of the other 300GB I have spare?
format shows:-
-bash-3.2# format
Searching for disks...done
AVAILABLE DISK SELECTIONS:
0. c3d0 <DEFAULT cyl 2607 alt 2 hd 255 sec 63>
... (12 Replies)
Discussion started by: hellotommy
12 Replies
7. UNIX for Advanced & Expert Users
Hi, can anyone please answer my question in deleting the rest of the line. I have an example below of a file contaning:
Serial3/1.5 43.70.195.13 YES NVRAM down down
Serial3/3 225.94.155.69 YES NVRAM up down
Serial3/6 ... (3 Replies)
Discussion started by: Aejaz
3 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)
