are you sure that this is the problematic code fragment? I am asking because when I tried this with a command line such as
, the perl process did not wait (the supposed pipe-writer is not writing anything to the pipe) and I got my prompt back.
Myself too...i got the prompt back when i piped a empty file
But when simply executed like below without piping anything
It waits and i guess its just waiting for input..i believe this is per design..
I am trying to create a perl script that will make sure a web page can be accessed going through an Apache httpd. The actual content of the web page does not matter. Most likely the web page will just have "You have successfully reached this port." This script will eventually be running... (5 Replies)
Hi,
i'm designing a unix script and i want to know if there is a shell command or a way to see if perl is installed in the system.
thanks in advance! (5 Replies)
I'm using the fabulous perl. I need a way to tell when a piped call to "open" has completed. Can I do this with a command like <ShellPipe> ??
Reason behind this:
I'm trying to write a backup script in perl! This script will download a certain file from my web server, to my computer.
Now,... (0 Replies)
hi everybody;
my code is cheking if a port is an actif or not with the cmd netstat -ln,I want first to enter the number of the port which I want to check it but I think that the value of $con in the second "if" is always "0" so the code give me always that the port is not used!!!
... (5 Replies)
I am trying to execute a piped combination of shell commands inside a perl program.
However, it is not working as desired.
This is my program, i am trying to print only filenames from the output of ls -l
$ cat list_test
#!/usr/bin/perl -w
use strict;
my $count=0;
my @list=`ls -l|awk... (4 Replies)
Hi Experts,
I am checking how to get day in Perl.
If it is “Monday” I need to process…below is the pseudo code.
Can you please prove the code for below condition.
if (today=="Monday" )
{
while (current_time LESS THAN 9:01 AM)
... (1 Reply)
Hello,
I'm pretty stumped, and I don't know why I am not able to redirect the output to the 'graphme' file with the command below in Fedora 18.
tcpdump -l -n -t "tcp == 18" | perl -ane '($s,$j)=split(/,/,$F,2); print "$s\n";' > graphme
In case you're wondering, I was following the example... (2 Replies)
My issue is that the perl script (as I have done it so far) created empty branches when I try to check some branches on existence.
I am using multydimentional hashes: found it as the best way for information that I need to handle. Saing multidimentional I means hash of hashes ... So, I have
... (2 Replies)
Discussion started by: alex_5161
2 Replies
LEARN ABOUT DEBIAN
term::size::perl
Perl(3pm) User Contributed Perl Documentation Perl(3pm)NAME
Term::Size::Perl - Perl extension for retrieving terminal size (Perl version)
SYNOPSIS
use Term::Size::Perl;
($columns, $rows) = Term::Size::Perl::chars *STDOUT{IO};
($x, $y) = Term::Size::Perl::pixels;
DESCRIPTION
Yet another implementation of "Term::Size". Now in pure Perl, with the exception of a C probe run on build time.
FUNCTIONS
chars
($columns, $rows) = chars($h);
$columns = chars($h);
"chars" returns the terminal size in units of characters corresponding to the given filehandle $h. If the argument is omitted,
*STDIN{IO} is used. In scalar context, it returns the terminal width.
pixels
($x, $y) = pixels($h);
$x = pixels($h);
"pixels" returns the terminal size in units of pixels corresponding to the given filehandle $h. If the argument is omitted, *STDIN{IO}
is used. In scalar context, it returns the terminal width.
Many systems with character-only terminals will return "(0, 0)".
SEE ALSO
It all began with Term::Size by Tim Goodwin. You may want to have a look at:
Term::Size
Term::Size::Unix
Term::Size::Win32
Term::Size::ReadKey
It would be helpful if you send me the Params.pm generated by the probe at build time. Please reports bugs via CPAN RT,
http://rt.cpan.org/NoAuth/Bugs.html?Dist=Term-Size-Perl
BUGS
I am having some hard time to make tests run correctly under the "cpan" script. Some Unix systems do not seem to provide a working tty
inside automatic installers. I think it needs some skip tests, but I am yet not sure what should be the portable tests for this.
Update: This distribution uses new tests to skip if filehandle is not a tty. It was noticed that "Test::Harness" and "prove", for instance,
provide a non-tty STDOUT to the test script and automatic installers could provide a non-tty STDIN. So the former tests were basically
wrong. I am improving my understanding of the involved issues and I hope to soon fix the tests for all of Term::Size modules.
AUTHOR
A. R. Ferreira, <ferreira@cpan.org>
COPYRIGHT AND LICENSE
Copyright (C) 2006-2007 by A. R. Ferreira
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2012-01-22 Perl(3pm)