You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1103 lines
38 KiB
1103 lines
38 KiB
=head1 NAME
|
|
|
|
perlfaq8 - System Interaction ($Revision: 1.39 $, $Date: 1999/05/23 18:37:57 $)
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This section of the Perl FAQ covers questions involving operating
|
|
system interaction. Topics include interprocess communication (IPC),
|
|
control over the user-interface (keyboard, screen and pointing
|
|
devices), and most anything else not related to data manipulation.
|
|
|
|
Read the FAQs and documentation specific to the port of perl to your
|
|
operating system (eg, L<perlvms>, L<perlplan9>, ...). These should
|
|
contain more detailed information on the vagaries of your perl.
|
|
|
|
=head2 How do I find out which operating system I'm running under?
|
|
|
|
The $^O variable ($OSNAME if you use English) contains an indication of
|
|
the name of the operating system (not its release number) that your perl
|
|
binary was built for.
|
|
|
|
=head2 How come exec() doesn't return?
|
|
|
|
Because that's what it does: it replaces your currently running
|
|
program with a different one. If you want to keep going (as is
|
|
probably the case if you're asking this question) use system()
|
|
instead.
|
|
|
|
=head2 How do I do fancy stuff with the keyboard/screen/mouse?
|
|
|
|
How you access/control keyboards, screens, and pointing devices
|
|
("mice") is system-dependent. Try the following modules:
|
|
|
|
=over 4
|
|
|
|
=item Keyboard
|
|
|
|
Term::Cap Standard perl distribution
|
|
Term::ReadKey CPAN
|
|
Term::ReadLine::Gnu CPAN
|
|
Term::ReadLine::Perl CPAN
|
|
Term::Screen CPAN
|
|
|
|
=item Screen
|
|
|
|
Term::Cap Standard perl distribution
|
|
Curses CPAN
|
|
Term::ANSIColor CPAN
|
|
|
|
=item Mouse
|
|
|
|
Tk CPAN
|
|
|
|
=back
|
|
|
|
Some of these specific cases are shown below.
|
|
|
|
=head2 How do I print something out in color?
|
|
|
|
In general, you don't, because you don't know whether
|
|
the recipient has a color-aware display device. If you
|
|
know that they have an ANSI terminal that understands
|
|
color, you can use the Term::ANSIColor module from CPAN:
|
|
|
|
use Term::ANSIColor;
|
|
print color("red"), "Stop!\n", color("reset");
|
|
print color("green"), "Go!\n", color("reset");
|
|
|
|
Or like this:
|
|
|
|
use Term::ANSIColor qw(:constants);
|
|
print RED, "Stop!\n", RESET;
|
|
print GREEN, "Go!\n", RESET;
|
|
|
|
=head2 How do I read just one key without waiting for a return key?
|
|
|
|
Controlling input buffering is a remarkably system-dependent matter.
|
|
On many systems, you can just use the B<stty> command as shown in
|
|
L<perlfunc/getc>, but as you see, that's already getting you into
|
|
portability snags.
|
|
|
|
open(TTY, "+</dev/tty") or die "no tty: $!";
|
|
system "stty cbreak </dev/tty >/dev/tty 2>&1";
|
|
$key = getc(TTY); # perhaps this works
|
|
# OR ELSE
|
|
sysread(TTY, $key, 1); # probably this does
|
|
system "stty -cbreak </dev/tty >/dev/tty 2>&1";
|
|
|
|
The Term::ReadKey module from CPAN offers an easy-to-use interface that
|
|
should be more efficient than shelling out to B<stty> for each key.
|
|
It even includes limited support for Windows.
|
|
|
|
use Term::ReadKey;
|
|
ReadMode('cbreak');
|
|
$key = ReadKey(0);
|
|
ReadMode('normal');
|
|
|
|
However, using the code requires that you have a working C compiler
|
|
and can use it to build and install a CPAN module. Here's a solution
|
|
using the standard POSIX module, which is already on your systems
|
|
(assuming your system supports POSIX).
|
|
|
|
use HotKey;
|
|
$key = readkey();
|
|
|
|
And here's the HotKey module, which hides the somewhat mystifying calls
|
|
to manipulate the POSIX termios structures.
|
|
|
|
# HotKey.pm
|
|
package HotKey;
|
|
|
|
@ISA = qw(Exporter);
|
|
@EXPORT = qw(cbreak cooked readkey);
|
|
|
|
use strict;
|
|
use POSIX qw(:termios_h);
|
|
my ($term, $oterm, $echo, $noecho, $fd_stdin);
|
|
|
|
$fd_stdin = fileno(STDIN);
|
|
$term = POSIX::Termios->new();
|
|
$term->getattr($fd_stdin);
|
|
$oterm = $term->getlflag();
|
|
|
|
$echo = ECHO | ECHOK | ICANON;
|
|
$noecho = $oterm & ~$echo;
|
|
|
|
sub cbreak {
|
|
$term->setlflag($noecho); # ok, so i don't want echo either
|
|
$term->setcc(VTIME, 1);
|
|
$term->setattr($fd_stdin, TCSANOW);
|
|
}
|
|
|
|
sub cooked {
|
|
$term->setlflag($oterm);
|
|
$term->setcc(VTIME, 0);
|
|
$term->setattr($fd_stdin, TCSANOW);
|
|
}
|
|
|
|
sub readkey {
|
|
my $key = '';
|
|
cbreak();
|
|
sysread(STDIN, $key, 1);
|
|
cooked();
|
|
return $key;
|
|
}
|
|
|
|
END { cooked() }
|
|
|
|
1;
|
|
|
|
=head2 How do I check whether input is ready on the keyboard?
|
|
|
|
The easiest way to do this is to read a key in nonblocking mode with the
|
|
Term::ReadKey module from CPAN, passing it an argument of -1 to indicate
|
|
not to block:
|
|
|
|
use Term::ReadKey;
|
|
|
|
ReadMode('cbreak');
|
|
|
|
if (defined ($char = ReadKey(-1)) ) {
|
|
# input was waiting and it was $char
|
|
} else {
|
|
# no input was waiting
|
|
}
|
|
|
|
ReadMode('normal'); # restore normal tty settings
|
|
|
|
=head2 How do I clear the screen?
|
|
|
|
If you only have do so infrequently, use C<system>:
|
|
|
|
system("clear");
|
|
|
|
If you have to do this a lot, save the clear string
|
|
so you can print it 100 times without calling a program
|
|
100 times:
|
|
|
|
$clear_string = `clear`;
|
|
print $clear_string;
|
|
|
|
If you're planning on doing other screen manipulations, like cursor
|
|
positions, etc, you might wish to use Term::Cap module:
|
|
|
|
use Term::Cap;
|
|
$terminal = Term::Cap->Tgetent( {OSPEED => 9600} );
|
|
$clear_string = $terminal->Tputs('cl');
|
|
|
|
=head2 How do I get the screen size?
|
|
|
|
If you have Term::ReadKey module installed from CPAN,
|
|
you can use it to fetch the width and height in characters
|
|
and in pixels:
|
|
|
|
use Term::ReadKey;
|
|
($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();
|
|
|
|
This is more portable than the raw C<ioctl>, but not as
|
|
illustrative:
|
|
|
|
require 'sys/ioctl.ph';
|
|
die "no TIOCGWINSZ " unless defined &TIOCGWINSZ;
|
|
open(TTY, "+</dev/tty") or die "No tty: $!";
|
|
unless (ioctl(TTY, &TIOCGWINSZ, $winsize='')) {
|
|
die sprintf "$0: ioctl TIOCGWINSZ (%08x: $!)\n", &TIOCGWINSZ;
|
|
}
|
|
($row, $col, $xpixel, $ypixel) = unpack('S4', $winsize);
|
|
print "(row,col) = ($row,$col)";
|
|
print " (xpixel,ypixel) = ($xpixel,$ypixel)" if $xpixel || $ypixel;
|
|
print "\n";
|
|
|
|
=head2 How do I ask the user for a password?
|
|
|
|
(This question has nothing to do with the web. See a different
|
|
FAQ for that.)
|
|
|
|
There's an example of this in L<perlfunc/crypt>). First, you put the
|
|
terminal into "no echo" mode, then just read the password normally.
|
|
You may do this with an old-style ioctl() function, POSIX terminal
|
|
control (see L<POSIX> or its documentation the Camel Book), or a call
|
|
to the B<stty> program, with varying degrees of portability.
|
|
|
|
You can also do this for most systems using the Term::ReadKey module
|
|
from CPAN, which is easier to use and in theory more portable.
|
|
|
|
use Term::ReadKey;
|
|
|
|
ReadMode('noecho');
|
|
$password = ReadLine(0);
|
|
|
|
=head2 How do I read and write the serial port?
|
|
|
|
This depends on which operating system your program is running on. In
|
|
the case of Unix, the serial ports will be accessible through files in
|
|
/dev; on other systems, device names will doubtless differ.
|
|
Several problem areas common to all device interaction are the
|
|
following:
|
|
|
|
=over 4
|
|
|
|
=item lockfiles
|
|
|
|
Your system may use lockfiles to control multiple access. Make sure
|
|
you follow the correct protocol. Unpredictable behavior can result
|
|
from multiple processes reading from one device.
|
|
|
|
=item open mode
|
|
|
|
If you expect to use both read and write operations on the device,
|
|
you'll have to open it for update (see L<perlfunc/"open"> for
|
|
details). You may wish to open it without running the risk of
|
|
blocking by using sysopen() and C<O_RDWR|O_NDELAY|O_NOCTTY> from the
|
|
Fcntl module (part of the standard perl distribution). See
|
|
L<perlfunc/"sysopen"> for more on this approach.
|
|
|
|
=item end of line
|
|
|
|
Some devices will be expecting a "\r" at the end of each line rather
|
|
than a "\n". In some ports of perl, "\r" and "\n" are different from
|
|
their usual (Unix) ASCII values of "\012" and "\015". You may have to
|
|
give the numeric values you want directly, using octal ("\015"), hex
|
|
("0x0D"), or as a control-character specification ("\cM").
|
|
|
|
print DEV "atv1\012"; # wrong, for some devices
|
|
print DEV "atv1\015"; # right, for some devices
|
|
|
|
Even though with normal text files a "\n" will do the trick, there is
|
|
still no unified scheme for terminating a line that is portable
|
|
between Unix, DOS/Win, and Macintosh, except to terminate I<ALL> line
|
|
ends with "\015\012", and strip what you don't need from the output.
|
|
This applies especially to socket I/O and autoflushing, discussed
|
|
next.
|
|
|
|
=item flushing output
|
|
|
|
If you expect characters to get to your device when you print() them,
|
|
you'll want to autoflush that filehandle. You can use select()
|
|
and the C<$|> variable to control autoflushing (see L<perlvar/$|>
|
|
and L<perlfunc/select>, or L<perlfaq5>, ``How do I flush/unbuffer an
|
|
output filehandle? Why must I do this?''):
|
|
|
|
$oldh = select(DEV);
|
|
$| = 1;
|
|
select($oldh);
|
|
|
|
You'll also see code that does this without a temporary variable, as in
|
|
|
|
select((select(DEV), $| = 1)[0]);
|
|
|
|
Or if you don't mind pulling in a few thousand lines
|
|
of code just because you're afraid of a little $| variable:
|
|
|
|
use IO::Handle;
|
|
DEV->autoflush(1);
|
|
|
|
As mentioned in the previous item, this still doesn't work when using
|
|
socket I/O between Unix and Macintosh. You'll need to hardcode your
|
|
line terminators, in that case.
|
|
|
|
=item non-blocking input
|
|
|
|
If you are doing a blocking read() or sysread(), you'll have to
|
|
arrange for an alarm handler to provide a timeout (see
|
|
L<perlfunc/alarm>). If you have a non-blocking open, you'll likely
|
|
have a non-blocking read, which means you may have to use a 4-arg
|
|
select() to determine whether I/O is ready on that device (see
|
|
L<perlfunc/"select">.
|
|
|
|
=back
|
|
|
|
While trying to read from his caller-id box, the notorious Jamie Zawinski
|
|
<[email protected]>, after much gnashing of teeth and fighting with sysread,
|
|
sysopen, POSIX's tcgetattr business, and various other functions that
|
|
go bump in the night, finally came up with this:
|
|
|
|
sub open_modem {
|
|
use IPC::Open2;
|
|
my $stty = `/bin/stty -g`;
|
|
open2( \*MODEM_IN, \*MODEM_OUT, "cu -l$modem_device -s2400 2>&1");
|
|
# starting cu hoses /dev/tty's stty settings, even when it has
|
|
# been opened on a pipe...
|
|
system("/bin/stty $stty");
|
|
$_ = <MODEM_IN>;
|
|
chomp;
|
|
if ( !m/^Connected/ ) {
|
|
print STDERR "$0: cu printed `$_' instead of `Connected'\n";
|
|
}
|
|
}
|
|
|
|
=head2 How do I decode encrypted password files?
|
|
|
|
You spend lots and lots of money on dedicated hardware, but this is
|
|
bound to get you talked about.
|
|
|
|
Seriously, you can't if they are Unix password files--the Unix
|
|
password system employs one-way encryption. It's more like hashing than
|
|
encryption. The best you can check is whether something else hashes to
|
|
the same string. You can't turn a hash back into the original string.
|
|
Programs like Crack
|
|
can forcibly (and intelligently) try to guess passwords, but don't
|
|
(can't) guarantee quick success.
|
|
|
|
If you're worried about users selecting bad passwords, you should
|
|
proactively check when they try to change their password (by modifying
|
|
passwd(1), for example).
|
|
|
|
=head2 How do I start a process in the background?
|
|
|
|
You could use
|
|
|
|
system("cmd &")
|
|
|
|
or you could use fork as documented in L<perlfunc/"fork">, with
|
|
further examples in L<perlipc>. Some things to be aware of, if you're
|
|
on a Unix-like system:
|
|
|
|
=over 4
|
|
|
|
=item STDIN, STDOUT, and STDERR are shared
|
|
|
|
Both the main process and the backgrounded one (the "child" process)
|
|
share the same STDIN, STDOUT and STDERR filehandles. If both try to
|
|
access them at once, strange things can happen. You may want to close
|
|
or reopen these for the child. You can get around this with
|
|
C<open>ing a pipe (see L<perlfunc/"open">) but on some systems this
|
|
means that the child process cannot outlive the parent.
|
|
|
|
=item Signals
|
|
|
|
You'll have to catch the SIGCHLD signal, and possibly SIGPIPE too.
|
|
SIGCHLD is sent when the backgrounded process finishes. SIGPIPE is
|
|
sent when you write to a filehandle whose child process has closed (an
|
|
untrapped SIGPIPE can cause your program to silently die). This is
|
|
not an issue with C<system("cmd&")>.
|
|
|
|
=item Zombies
|
|
|
|
You have to be prepared to "reap" the child process when it finishes
|
|
|
|
$SIG{CHLD} = sub { wait };
|
|
|
|
See L<perlipc/"Signals"> for other examples of code to do this.
|
|
Zombies are not an issue with C<system("prog &")>.
|
|
|
|
=back
|
|
|
|
=head2 How do I trap control characters/signals?
|
|
|
|
You don't actually "trap" a control character. Instead, that character
|
|
generates a signal which is sent to your terminal's currently
|
|
foregrounded process group, which you then trap in your process.
|
|
Signals are documented in L<perlipc/"Signals"> and the
|
|
section on ``Signals'' in the Camel.
|
|
|
|
Be warned that very few C libraries are re-entrant. Therefore, if you
|
|
attempt to print() in a handler that got invoked during another stdio
|
|
operation your internal structures will likely be in an
|
|
inconsistent state, and your program will dump core. You can
|
|
sometimes avoid this by using syswrite() instead of print().
|
|
|
|
Unless you're exceedingly careful, the only safe things to do inside a
|
|
signal handler are (1) set a variable and (2) exit. In the first case,
|
|
you should only set a variable in such a way that malloc() is not
|
|
called (eg, by setting a variable that already has a value).
|
|
|
|
For example:
|
|
|
|
$Interrupted = 0; # to ensure it has a value
|
|
$SIG{INT} = sub {
|
|
$Interrupted++;
|
|
syswrite(STDERR, "ouch\n", 5);
|
|
}
|
|
|
|
However, because syscalls restart by default, you'll find that if
|
|
you're in a "slow" call, such as <FH>, read(), connect(), or
|
|
wait(), that the only way to terminate them is by "longjumping" out;
|
|
that is, by raising an exception. See the time-out handler for a
|
|
blocking flock() in L<perlipc/"Signals"> or the section on ``Signals''
|
|
in the Camel book.
|
|
|
|
=head2 How do I modify the shadow password file on a Unix system?
|
|
|
|
If perl was installed correctly and your shadow library was written
|
|
properly, the getpw*() functions described in L<perlfunc> should in
|
|
theory provide (read-only) access to entries in the shadow password
|
|
file. To change the file, make a new shadow password file (the format
|
|
varies from system to system--see L<passwd(5)> for specifics) and use
|
|
pwd_mkdb(8) to install it (see L<pwd_mkdb(8)> for more details).
|
|
|
|
=head2 How do I set the time and date?
|
|
|
|
Assuming you're running under sufficient permissions, you should be
|
|
able to set the system-wide date and time by running the date(1)
|
|
program. (There is no way to set the time and date on a per-process
|
|
basis.) This mechanism will work for Unix, MS-DOS, Windows, and NT;
|
|
the VMS equivalent is C<set time>.
|
|
|
|
However, if all you want to do is change your timezone, you can
|
|
probably get away with setting an environment variable:
|
|
|
|
$ENV{TZ} = "MST7MDT"; # unixish
|
|
$ENV{'SYS$TIMEZONE_DIFFERENTIAL'}="-5" # vms
|
|
system "trn comp.lang.perl.misc";
|
|
|
|
=head2 How can I sleep() or alarm() for under a second?
|
|
|
|
If you want finer granularity than the 1 second that the sleep()
|
|
function provides, the easiest way is to use the select() function as
|
|
documented in L<perlfunc/"select">. Try the Time::HiRes and
|
|
the BSD::Itimer modules (available from CPAN).
|
|
|
|
=head2 How can I measure time under a second?
|
|
|
|
In general, you may not be able to. The Time::HiRes module (available
|
|
from CPAN) provides this functionality for some systems.
|
|
|
|
If your system supports both the syscall() function in Perl as well as
|
|
a system call like gettimeofday(2), then you may be able to do
|
|
something like this:
|
|
|
|
require 'sys/syscall.ph';
|
|
|
|
$TIMEVAL_T = "LL";
|
|
|
|
$done = $start = pack($TIMEVAL_T, ());
|
|
|
|
syscall(&SYS_gettimeofday, $start, 0) != -1
|
|
or die "gettimeofday: $!";
|
|
|
|
##########################
|
|
# DO YOUR OPERATION HERE #
|
|
##########################
|
|
|
|
syscall( &SYS_gettimeofday, $done, 0) != -1
|
|
or die "gettimeofday: $!";
|
|
|
|
@start = unpack($TIMEVAL_T, $start);
|
|
@done = unpack($TIMEVAL_T, $done);
|
|
|
|
# fix microseconds
|
|
for ($done[1], $start[1]) { $_ /= 1_000_000 }
|
|
|
|
$delta_time = sprintf "%.4f", ($done[0] + $done[1] )
|
|
-
|
|
($start[0] + $start[1] );
|
|
|
|
=head2 How can I do an atexit() or setjmp()/longjmp()? (Exception handling)
|
|
|
|
Release 5 of Perl added the END block, which can be used to simulate
|
|
atexit(). Each package's END block is called when the program or
|
|
thread ends (see L<perlmod> manpage for more details).
|
|
|
|
For example, you can use this to make sure your filter program
|
|
managed to finish its output without filling up the disk:
|
|
|
|
END {
|
|
close(STDOUT) || die "stdout close failed: $!";
|
|
}
|
|
|
|
The END block isn't called when untrapped signals kill the program,
|
|
though, so if you use END blocks you should also use
|
|
|
|
use sigtrap qw(die normal-signals);
|
|
|
|
Perl's exception-handling mechanism is its eval() operator. You can
|
|
use eval() as setjmp and die() as longjmp. For details of this, see
|
|
the section on signals, especially the time-out handler for a blocking
|
|
flock() in L<perlipc/"Signals"> or the section on ``Signals'' in
|
|
the Camel Book.
|
|
|
|
If exception handling is all you're interested in, try the
|
|
exceptions.pl library (part of the standard perl distribution).
|
|
|
|
If you want the atexit() syntax (and an rmexit() as well), try the
|
|
AtExit module available from CPAN.
|
|
|
|
=head2 Why doesn't my sockets program work under System V (Solaris)? What does the error message "Protocol not supported" mean?
|
|
|
|
Some Sys-V based systems, notably Solaris 2.X, redefined some of the
|
|
standard socket constants. Since these were constant across all
|
|
architectures, they were often hardwired into perl code. The proper
|
|
way to deal with this is to "use Socket" to get the correct values.
|
|
|
|
Note that even though SunOS and Solaris are binary compatible, these
|
|
values are different. Go figure.
|
|
|
|
=head2 How can I call my system's unique C functions from Perl?
|
|
|
|
In most cases, you write an external module to do it--see the answer
|
|
to "Where can I learn about linking C with Perl? [h2xs, xsubpp]".
|
|
However, if the function is a system call, and your system supports
|
|
syscall(), you can use the syscall function (documented in
|
|
L<perlfunc>).
|
|
|
|
Remember to check the modules that came with your distribution, and
|
|
CPAN as well--someone may already have written a module to do it.
|
|
|
|
=head2 Where do I get the include files to do ioctl() or syscall()?
|
|
|
|
Historically, these would be generated by the h2ph tool, part of the
|
|
standard perl distribution. This program converts cpp(1) directives
|
|
in C header files to files containing subroutine definitions, like
|
|
&SYS_getitimer, which you can use as arguments to your functions.
|
|
It doesn't work perfectly, but it usually gets most of the job done.
|
|
Simple files like F<errno.h>, F<syscall.h>, and F<socket.h> were fine,
|
|
but the hard ones like F<ioctl.h> nearly always need to hand-edited.
|
|
Here's how to install the *.ph files:
|
|
|
|
1. become super-user
|
|
2. cd /usr/include
|
|
3. h2ph *.h */*.h
|
|
|
|
If your system supports dynamic loading, for reasons of portability and
|
|
sanity you probably ought to use h2xs (also part of the standard perl
|
|
distribution). This tool converts C header files to Perl extensions.
|
|
See L<perlxstut> for how to get started with h2xs.
|
|
|
|
If your system doesn't support dynamic loading, you still probably
|
|
ought to use h2xs. See L<perlxstut> and L<ExtUtils::MakeMaker> for
|
|
more information (in brief, just use B<make perl> instead of a plain
|
|
B<make> to rebuild perl with a new static extension).
|
|
|
|
=head2 Why do setuid perl scripts complain about kernel problems?
|
|
|
|
Some operating systems have bugs in the kernel that make setuid
|
|
scripts inherently insecure. Perl gives you a number of options
|
|
(described in L<perlsec>) to work around such systems.
|
|
|
|
=head2 How can I open a pipe both to and from a command?
|
|
|
|
The IPC::Open2 module (part of the standard perl distribution) is an
|
|
easy-to-use approach that internally uses pipe(), fork(), and exec() to do
|
|
the job. Make sure you read the deadlock warnings in its documentation,
|
|
though (see L<IPC::Open2>). See
|
|
L<perlipc/"Bidirectional Communication with Another Process"> and
|
|
L<perlipc/"Bidirectional Communication with Yourself">
|
|
|
|
You may also use the IPC::Open3 module (part of the standard perl
|
|
distribution), but be warned that it has a different order of
|
|
arguments from IPC::Open2 (see L<IPC::Open3>).
|
|
|
|
=head2 Why can't I get the output of a command with system()?
|
|
|
|
You're confusing the purpose of system() and backticks (``). system()
|
|
runs a command and returns exit status information (as a 16 bit value:
|
|
the low 7 bits are the signal the process died from, if any, and
|
|
the high 8 bits are the actual exit value). Backticks (``) run a
|
|
command and return what it sent to STDOUT.
|
|
|
|
$exit_status = system("mail-users");
|
|
$output_string = `ls`;
|
|
|
|
=head2 How can I capture STDERR from an external command?
|
|
|
|
There are three basic ways of running external commands:
|
|
|
|
system $cmd; # using system()
|
|
$output = `$cmd`; # using backticks (``)
|
|
open (PIPE, "cmd |"); # using open()
|
|
|
|
With system(), both STDOUT and STDERR will go the same place as the
|
|
script's STDOUT and STDERR, unless the system() command redirects them.
|
|
Backticks and open() read B<only> the STDOUT of your command.
|
|
|
|
With any of these, you can change file descriptors before the call:
|
|
|
|
open(STDOUT, ">logfile");
|
|
system("ls");
|
|
|
|
or you can use Bourne shell file-descriptor redirection:
|
|
|
|
$output = `$cmd 2>some_file`;
|
|
open (PIPE, "cmd 2>some_file |");
|
|
|
|
You can also use file-descriptor redirection to make STDERR a
|
|
duplicate of STDOUT:
|
|
|
|
$output = `$cmd 2>&1`;
|
|
open (PIPE, "cmd 2>&1 |");
|
|
|
|
Note that you I<cannot> simply open STDERR to be a dup of STDOUT
|
|
in your Perl program and avoid calling the shell to do the redirection.
|
|
This doesn't work:
|
|
|
|
open(STDERR, ">&STDOUT");
|
|
$alloutput = `cmd args`; # stderr still escapes
|
|
|
|
This fails because the open() makes STDERR go to where STDOUT was
|
|
going at the time of the open(). The backticks then make STDOUT go to
|
|
a string, but don't change STDERR (which still goes to the old
|
|
STDOUT).
|
|
|
|
Note that you I<must> use Bourne shell (sh(1)) redirection syntax in
|
|
backticks, not csh(1)! Details on why Perl's system() and backtick
|
|
and pipe opens all use the Bourne shell are in
|
|
http://www.perl.com/CPAN/doc/FMTEYEWTK/versus/csh.whynot .
|
|
To capture a command's STDERR and STDOUT together:
|
|
|
|
$output = `cmd 2>&1`; # either with backticks
|
|
$pid = open(PH, "cmd 2>&1 |"); # or with an open pipe
|
|
while (<PH>) { } # plus a read
|
|
|
|
To capture a command's STDOUT but discard its STDERR:
|
|
|
|
$output = `cmd 2>/dev/null`; # either with backticks
|
|
$pid = open(PH, "cmd 2>/dev/null |"); # or with an open pipe
|
|
while (<PH>) { } # plus a read
|
|
|
|
To capture a command's STDERR but discard its STDOUT:
|
|
|
|
$output = `cmd 2>&1 1>/dev/null`; # either with backticks
|
|
$pid = open(PH, "cmd 2>&1 1>/dev/null |"); # or with an open pipe
|
|
while (<PH>) { } # plus a read
|
|
|
|
To exchange a command's STDOUT and STDERR in order to capture the STDERR
|
|
but leave its STDOUT to come out our old STDERR:
|
|
|
|
$output = `cmd 3>&1 1>&2 2>&3 3>&-`; # either with backticks
|
|
$pid = open(PH, "cmd 3>&1 1>&2 2>&3 3>&-|");# or with an open pipe
|
|
while (<PH>) { } # plus a read
|
|
|
|
To read both a command's STDOUT and its STDERR separately, it's easiest
|
|
and safest to redirect them separately to files, and then read from those
|
|
files when the program is done:
|
|
|
|
system("program args 1>/tmp/program.stdout 2>/tmp/program.stderr");
|
|
|
|
Ordering is important in all these examples. That's because the shell
|
|
processes file descriptor redirections in strictly left to right order.
|
|
|
|
system("prog args 1>tmpfile 2>&1");
|
|
system("prog args 2>&1 1>tmpfile");
|
|
|
|
The first command sends both standard out and standard error to the
|
|
temporary file. The second command sends only the old standard output
|
|
there, and the old standard error shows up on the old standard out.
|
|
|
|
=head2 Why doesn't open() return an error when a pipe open fails?
|
|
|
|
Because the pipe open takes place in two steps: first Perl calls
|
|
fork() to start a new process, then this new process calls exec() to
|
|
run the program you really wanted to open. The first step reports
|
|
success or failure to your process, so open() can only tell you
|
|
whether the fork() succeeded or not.
|
|
|
|
To find out if the exec() step succeeded, you have to catch SIGCHLD
|
|
and wait() to get the exit status. You should also catch SIGPIPE if
|
|
you're writing to the child--you may not have found out the exec()
|
|
failed by the time you write. This is documented in L<perlipc>.
|
|
|
|
In some cases, even this won't work. If the second argument to a
|
|
piped open() contains shell metacharacters, perl fork()s, then exec()s
|
|
a shell to decode the metacharacters and eventually run the desired
|
|
program. Now when you call wait(), you only learn whether or not the
|
|
I<shell> could be successfully started...it's best to avoid shell
|
|
metacharacters.
|
|
|
|
On systems that follow the spawn() paradigm, open() I<might> do what
|
|
you expect--unless perl uses a shell to start your command. In this
|
|
case the fork()/exec() description still applies.
|
|
|
|
=head2 What's wrong with using backticks in a void context?
|
|
|
|
Strictly speaking, nothing. Stylistically speaking, it's not a good
|
|
way to write maintainable code because backticks have a (potentially
|
|
humongous) return value, and you're ignoring it. It's may also not be very
|
|
efficient, because you have to read in all the lines of output, allocate
|
|
memory for them, and then throw it away. Too often people are lulled
|
|
to writing:
|
|
|
|
`cp file file.bak`;
|
|
|
|
And now they think "Hey, I'll just always use backticks to run programs."
|
|
Bad idea: backticks are for capturing a program's output; the system()
|
|
function is for running programs.
|
|
|
|
Consider this line:
|
|
|
|
`cat /etc/termcap`;
|
|
|
|
You haven't assigned the output anywhere, so it just wastes memory
|
|
(for a little while). You forgot to check C<$?> to see whether
|
|
the program even ran correctly, too. Even if you wrote
|
|
|
|
print `cat /etc/termcap`;
|
|
|
|
this code could and probably should be written as
|
|
|
|
system("cat /etc/termcap") == 0
|
|
or die "cat program failed!";
|
|
|
|
which will get the output quickly (as it is generated, instead of only
|
|
at the end) and also check the return value.
|
|
|
|
system() also provides direct control over whether shell wildcard
|
|
processing may take place, whereas backticks do not.
|
|
|
|
=head2 How can I call backticks without shell processing?
|
|
|
|
This is a bit tricky. Instead of writing
|
|
|
|
@ok = `grep @opts '$search_string' @filenames`;
|
|
|
|
You have to do this:
|
|
|
|
my @ok = ();
|
|
if (open(GREP, "-|")) {
|
|
while (<GREP>) {
|
|
chomp;
|
|
push(@ok, $_);
|
|
}
|
|
close GREP;
|
|
} else {
|
|
exec 'grep', @opts, $search_string, @filenames;
|
|
}
|
|
|
|
Just as with system(), no shell escapes happen when you exec() a list.
|
|
Further examples of this can be found in L<perlipc/"Safe Pipe Opens">.
|
|
|
|
Note that if you're stuck on Microsoft, no solution to this vexing issue
|
|
is even possible. Even if Perl were to emulate fork(), you'd still
|
|
be hosed, because Microsoft gives no argc/argv-style API. Their API
|
|
always reparses from a single string, which is fundamentally wrong,
|
|
but you're not likely to get the Gods of Redmond to acknowledge this
|
|
and fix it for you.
|
|
|
|
=head2 Why can't my script read from STDIN after I gave it EOF (^D on Unix, ^Z on MS-DOS)?
|
|
|
|
Some stdio's set error and eof flags that need clearing. The
|
|
POSIX module defines clearerr() that you can use. That is the
|
|
technically correct way to do it. Here are some less reliable
|
|
workarounds:
|
|
|
|
=over 4
|
|
|
|
=item 1
|
|
|
|
Try keeping around the seekpointer and go there, like this:
|
|
|
|
$where = tell(LOG);
|
|
seek(LOG, $where, 0);
|
|
|
|
=item 2
|
|
|
|
If that doesn't work, try seeking to a different part of the file and
|
|
then back.
|
|
|
|
=item 3
|
|
|
|
If that doesn't work, try seeking to a different part of
|
|
the file, reading something, and then seeking back.
|
|
|
|
=item 4
|
|
|
|
If that doesn't work, give up on your stdio package and use sysread.
|
|
|
|
=back
|
|
|
|
=head2 How can I convert my shell script to perl?
|
|
|
|
Learn Perl and rewrite it. Seriously, there's no simple converter.
|
|
Things that are awkward to do in the shell are easy to do in Perl, and
|
|
this very awkwardness is what would make a shell->perl converter
|
|
nigh-on impossible to write. By rewriting it, you'll think about what
|
|
you're really trying to do, and hopefully will escape the shell's
|
|
pipeline datastream paradigm, which while convenient for some matters,
|
|
causes many inefficiencies.
|
|
|
|
=head2 Can I use perl to run a telnet or ftp session?
|
|
|
|
Try the Net::FTP, TCP::Client, and Net::Telnet modules (available from
|
|
CPAN). http://www.perl.com/CPAN/scripts/netstuff/telnet.emul.shar
|
|
will also help for emulating the telnet protocol, but Net::Telnet is
|
|
quite probably easier to use..
|
|
|
|
If all you want to do is pretend to be telnet but don't need
|
|
the initial telnet handshaking, then the standard dual-process
|
|
approach will suffice:
|
|
|
|
use IO::Socket; # new in 5.004
|
|
$handle = IO::Socket::INET->new('www.perl.com:80')
|
|
|| die "can't connect to port 80 on www.perl.com: $!";
|
|
$handle->autoflush(1);
|
|
if (fork()) { # XXX: undef means failure
|
|
select($handle);
|
|
print while <STDIN>; # everything from stdin to socket
|
|
} else {
|
|
print while <$handle>; # everything from socket to stdout
|
|
}
|
|
close $handle;
|
|
exit;
|
|
|
|
=head2 How can I write expect in Perl?
|
|
|
|
Once upon a time, there was a library called chat2.pl (part of the
|
|
standard perl distribution), which never really got finished. If you
|
|
find it somewhere, I<don't use it>. These days, your best bet is to
|
|
look at the Expect module available from CPAN, which also requires two
|
|
other modules from CPAN, IO::Pty and IO::Stty.
|
|
|
|
=head2 Is there a way to hide perl's command line from programs such as "ps"?
|
|
|
|
First of all note that if you're doing this for security reasons (to
|
|
avoid people seeing passwords, for example) then you should rewrite
|
|
your program so that critical information is never given as an
|
|
argument. Hiding the arguments won't make your program completely
|
|
secure.
|
|
|
|
To actually alter the visible command line, you can assign to the
|
|
variable $0 as documented in L<perlvar>. This won't work on all
|
|
operating systems, though. Daemon programs like sendmail place their
|
|
state there, as in:
|
|
|
|
$0 = "orcus [accepting connections]";
|
|
|
|
=head2 I {changed directory, modified my environment} in a perl script. How come the change disappeared when I exited the script? How do I get my changes to be visible?
|
|
|
|
=over 4
|
|
|
|
=item Unix
|
|
|
|
In the strictest sense, it can't be done--the script executes as a
|
|
different process from the shell it was started from. Changes to a
|
|
process are not reflected in its parent--only in any children
|
|
created after the change. There is shell magic that may allow you to
|
|
fake it by eval()ing the script's output in your shell; check out the
|
|
comp.unix.questions FAQ for details.
|
|
|
|
=back
|
|
|
|
=head2 How do I close a process's filehandle without waiting for it to complete?
|
|
|
|
Assuming your system supports such things, just send an appropriate signal
|
|
to the process (see L<perlfunc/"kill">). It's common to first send a TERM
|
|
signal, wait a little bit, and then send a KILL signal to finish it off.
|
|
|
|
=head2 How do I fork a daemon process?
|
|
|
|
If by daemon process you mean one that's detached (disassociated from
|
|
its tty), then the following process is reported to work on most
|
|
Unixish systems. Non-Unix users should check their Your_OS::Process
|
|
module for other solutions.
|
|
|
|
=over 4
|
|
|
|
=item *
|
|
|
|
Open /dev/tty and use the TIOCNOTTY ioctl on it. See L<tty(4)>
|
|
for details. Or better yet, you can just use the POSIX::setsid()
|
|
function, so you don't have to worry about process groups.
|
|
|
|
=item *
|
|
|
|
Change directory to /
|
|
|
|
=item *
|
|
|
|
Reopen STDIN, STDOUT, and STDERR so they're not connected to the old
|
|
tty.
|
|
|
|
=item *
|
|
|
|
Background yourself like this:
|
|
|
|
fork && exit;
|
|
|
|
=back
|
|
|
|
The Proc::Daemon module, available from CPAN, provides a function to
|
|
perform these actions for you.
|
|
|
|
=head2 How do I find out if I'm running interactively or not?
|
|
|
|
Good question. Sometimes C<-t STDIN> and C<-t STDOUT> can give clues,
|
|
sometimes not.
|
|
|
|
if (-t STDIN && -t STDOUT) {
|
|
print "Now what? ";
|
|
}
|
|
|
|
On POSIX systems, you can test whether your own process group matches
|
|
the current process group of your controlling terminal as follows:
|
|
|
|
use POSIX qw/getpgrp tcgetpgrp/;
|
|
open(TTY, "/dev/tty") or die $!;
|
|
$tpgrp = tcgetpgrp(fileno(*TTY));
|
|
$pgrp = getpgrp();
|
|
if ($tpgrp == $pgrp) {
|
|
print "foreground\n";
|
|
} else {
|
|
print "background\n";
|
|
}
|
|
|
|
=head2 How do I timeout a slow event?
|
|
|
|
Use the alarm() function, probably in conjunction with a signal
|
|
handler, as documented in L<perlipc/"Signals"> and the section on
|
|
``Signals'' in the Camel. You may instead use the more flexible
|
|
Sys::AlarmCall module available from CPAN.
|
|
|
|
=head2 How do I set CPU limits?
|
|
|
|
Use the BSD::Resource module from CPAN.
|
|
|
|
=head2 How do I avoid zombies on a Unix system?
|
|
|
|
Use the reaper code from L<perlipc/"Signals"> to call wait() when a
|
|
SIGCHLD is received, or else use the double-fork technique described
|
|
in L<perlfunc/fork>.
|
|
|
|
=head2 How do I use an SQL database?
|
|
|
|
There are a number of excellent interfaces to SQL databases. See the
|
|
DBD::* modules available from http://www.perl.com/CPAN/modules/DBD .
|
|
A lot of information on this can be found at
|
|
http://www.symbolstone.org/technology/perl/DBI/
|
|
|
|
=head2 How do I make a system() exit on control-C?
|
|
|
|
You can't. You need to imitate the system() call (see L<perlipc> for
|
|
sample code) and then have a signal handler for the INT signal that
|
|
passes the signal on to the subprocess. Or you can check for it:
|
|
|
|
$rc = system($cmd);
|
|
if ($rc & 127) { die "signal death" }
|
|
|
|
=head2 How do I open a file without blocking?
|
|
|
|
If you're lucky enough to be using a system that supports
|
|
non-blocking reads (most Unixish systems do), you need only to use the
|
|
O_NDELAY or O_NONBLOCK flag from the Fcntl module in conjunction with
|
|
sysopen():
|
|
|
|
use Fcntl;
|
|
sysopen(FH, "/tmp/somefile", O_WRONLY|O_NDELAY|O_CREAT, 0644)
|
|
or die "can't open /tmp/somefile: $!":
|
|
|
|
=head2 How do I install a module from CPAN?
|
|
|
|
The easiest way is to have a module also named CPAN do it for you.
|
|
This module comes with perl version 5.004 and later. To manually install
|
|
the CPAN module, or any well-behaved CPAN module for that matter, follow
|
|
these steps:
|
|
|
|
=over 4
|
|
|
|
=item 1
|
|
|
|
Unpack the source into a temporary area.
|
|
|
|
=item 2
|
|
|
|
perl Makefile.PL
|
|
|
|
=item 3
|
|
|
|
make
|
|
|
|
=item 4
|
|
|
|
make test
|
|
|
|
=item 5
|
|
|
|
make install
|
|
|
|
=back
|
|
|
|
If your version of perl is compiled without dynamic loading, then you
|
|
just need to replace step 3 (B<make>) with B<make perl> and you will
|
|
get a new F<perl> binary with your extension linked in.
|
|
|
|
See L<ExtUtils::MakeMaker> for more details on building extensions.
|
|
See also the next question, ``What's the difference between require
|
|
and use?''.
|
|
|
|
=head2 What's the difference between require and use?
|
|
|
|
Perl offers several different ways to include code from one file into
|
|
another. Here are the deltas between the various inclusion constructs:
|
|
|
|
1) do $file is like eval `cat $file`, except the former
|
|
1.1: searches @INC and updates %INC.
|
|
1.2: bequeaths an *unrelated* lexical scope on the eval'ed code.
|
|
|
|
2) require $file is like do $file, except the former
|
|
2.1: checks for redundant loading, skipping already loaded files.
|
|
2.2: raises an exception on failure to find, compile, or execute $file.
|
|
|
|
3) require Module is like require "Module.pm", except the former
|
|
3.1: translates each "::" into your system's directory separator.
|
|
3.2: primes the parser to disambiguate class Module as an indirect object.
|
|
|
|
4) use Module is like require Module, except the former
|
|
4.1: loads the module at compile time, not run-time.
|
|
4.2: imports symbols and semantics from that package to the current one.
|
|
|
|
In general, you usually want C<use> and a proper Perl module.
|
|
|
|
=head2 How do I keep my own module/library directory?
|
|
|
|
When you build modules, use the PREFIX option when generating
|
|
Makefiles:
|
|
|
|
perl Makefile.PL PREFIX=/u/mydir/perl
|
|
|
|
then either set the PERL5LIB environment variable before you run
|
|
scripts that use the modules/libraries (see L<perlrun>) or say
|
|
|
|
use lib '/u/mydir/perl';
|
|
|
|
This is almost the same as
|
|
|
|
BEGIN {
|
|
unshift(@INC, '/u/mydir/perl');
|
|
}
|
|
|
|
except that the lib module checks for machine-dependent subdirectories.
|
|
See Perl's L<lib> for more information.
|
|
|
|
=head2 How do I add the directory my program lives in to the module/library search path?
|
|
|
|
use FindBin;
|
|
use lib "$FindBin::Bin";
|
|
use your_own_modules;
|
|
|
|
=head2 How do I add a directory to my include path at runtime?
|
|
|
|
Here are the suggested ways of modifying your include path:
|
|
|
|
the PERLLIB environment variable
|
|
the PERL5LIB environment variable
|
|
the perl -Idir command line flag
|
|
the use lib pragma, as in
|
|
use lib "$ENV{HOME}/myown_perllib";
|
|
|
|
The latter is particularly useful because it knows about machine
|
|
dependent architectures. The lib.pm pragmatic module was first
|
|
included with the 5.002 release of Perl.
|
|
|
|
=head2 What is socket.ph and where do I get it?
|
|
|
|
It's a perl4-style file defining values for system networking
|
|
constants. Sometimes it is built using h2ph when Perl is installed,
|
|
but other times it is not. Modern programs C<use Socket;> instead.
|
|
|
|
=head1 AUTHOR AND COPYRIGHT
|
|
|
|
Copyright (c) 1997-1999 Tom Christiansen and Nathan Torkington.
|
|
All rights reserved.
|
|
|
|
When included as part of the Standard Version of Perl, or as part of
|
|
its complete documentation whether printed or otherwise, this work
|
|
may be distributed only under the terms of Perl's Artistic License.
|
|
Any distribution of this file or derivatives thereof I<outside>
|
|
of that package require that special arrangements be made with
|
|
copyright holder.
|
|
|
|
Irrespective of its distribution, all code examples in this file
|
|
are hereby placed into the public domain. You are permitted and
|
|
encouraged to use this code in your own programs for fun
|
|
or for profit as you see fit. A simple comment in the code giving
|
|
credit would be courteous but is not required.
|