Perl: How to check if there is something being piped in

10 More Discussions You Might Find Interesting

1. Programming

Perl: restrict perl from automaticaly creating a hash branches on check

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. Shell Programming and Scripting

Can't Output Piped Perl In-line command to a File

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...

3. Shell Programming and Scripting

Perl code to check date and check files in particular dir

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) ...

4. Shell Programming and Scripting

Trouble executing piped shell commands in perl code

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...

5. Shell Programming and Scripting

Perl- check the port used

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!!! ...

6. Shell Programming and Scripting

Please check perl script

#!/usr/local/bin/perl #$path = perl; #use File::stat; use Time::localtime; sub ExampleFiles{ $today = time; $today -= $today % 86400; $return_value = 0; $mtime = (stat("$_")) || die "cannot stat file $!"; $size = (stat("$_")); # size in...

7. Shell Programming and Scripting

number check in perl

Hi,, this is returning true in all cases..( other than 10 dig number also) what could be wrong??

8. Shell Programming and Scripting

perl... how to tell if a piped command is still running?

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,...

9. Shell Programming and Scripting

How to check if perl is installed?

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!

10. Shell Programming and Scripting

Check URL using PERL

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...

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)

Shell Programming and Scripting