It only prints Step 1 But when the line is commented, it prints Step 1 Step 2 RUN#! /usr/local/bin/perl use Oraperl; use DBI; use FileHandle; use rf; use IO::Socket; use IO::Handle;; use POSIX qw(setsid); open STDIN, '>/dev/null' or die "Can't read /dev/null: $!"; print "Step 1\n"; #open STDOUT, '>','/dev/null' or die "Can't write to $prout: $!"; open(STDOUT, '>','/dev/null') or die "Can't write to $prout: $!"; print "Step 2\n"; open STDERR, '>/dev/null' or die "Can't write to $prerr: $!"; #SIG{CHLD} = 'IGNORE'; defined(my $pid = fork) or die "Can't fork: $!"; exit if $pid; setsid or die "Can't start a new session: $!"; #$SIG{CHLD} = 'DEFAULT'; #--------------------------- # Get Environment Variables #--------------------------- $logdir = $ENV{out}; $constr = $ENV{CAAO_CSTR}; $user = $ENV{CAAO_USU}; $pass = $ENV{CAAO_PWD}; print"RUN\n";
In reply to Re^2: Perl migration hp-ux -> Linux
by vccs
in thread Perl migration hp-ux -> Linux
by vccs
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |