[10449] in Perl-Users-Digest
Perl-Users Digest, Issue: 4041 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Oct 22 01:03:37 1998
Date: Wed, 21 Oct 98 22:00:18 -0700
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 21 Oct 1998 Volume: 8 Number: 4041
Today's topics:
"Can't locate auto/Getopt/Long/autosplit.ix" <larry-granroth@NOSPAM.uiowa.edu>
a script to collect information for a web page (Ilya)
Any Chicago Perl Mongers Group? (Bob N.)
Re: Any Chicago Perl Mongers Group? <eashton@bbnplanet.com>
Re: Any Chicago Perl Mongers Group? (Jim Allenspach)
Re: automatic garbage collection and memory leak (Ilya Zakharevich)
flock() win32 <eunpingc@ucsd.edu>
Re: flock() win32 (Martien Verbruggen)
Re: Forks and other Utensils (Mark-Jason Dominus)
Help:Tried installing PERL under WIN3.11, it simply gav <aufempen@dyson.brisnet.org.au>
interacting with alarm <msholund@wans.net>
Re: New to programming - New to Perl - LOST!!!! (Dagarath)
Ottawa.pm ?? <spurkis@engsoc.carleton.ca>
Re: Perl & Y2K - booby trap code (Mark-Jason Dominus)
Re: Perl & Y2K - booby trap code (Mark-Jason Dominus)
Re: Perl Cookbook - is this the best perl book? <clark@cybcon.com>
Re: Perl Cookbook - is this the best perl book? <bill@fccj.org>
Re: Perl Cookbook - is this the best perl book? <bill@fccj.org>
Re: perl debugger crash (Ilya Zakharevich)
Re: perl debugger crash (Ronald J Kimball)
Re: Perl Y2K copmliance (Ilya)
postscript to acrobat in perl benmoretti@my-dejanews.com
Re: Prevent Export of Names (Mark-Jason Dominus)
trouble reading binary files <swan@peakpeak.com>
Re: What's the "best" way to call one Perl script from (Martien Verbruggen)
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 22 Oct 1998 03:22:25 GMT
From: Larry Granroth <larry-granroth@NOSPAM.uiowa.edu>
Subject: "Can't locate auto/Getopt/Long/autosplit.ix"
Message-Id: <F17LDD.739@sysadm.physics.uiowa.edu>
Keywords: autosplit.ix
This may well be a dumb question:
I just installed perl-5.00502 sun4-solaris (SPARC Solaris 2.4)
and get the following message several times trying to use the
CPAN module:
Can't locate auto/Getopt/Long/autosplit.ix in @INC
(@INC contains: /opt/local/lib/perl5/5.00502/sun4-solaris
/opt/local/lib/perl5/5.00502/sun4-solaris /opt/local/lib/perl5/5.00502
/opt/local/lib/perl5/5.00502/sun4-solaris /opt/local/lib/perl5/5.00502
/opt/local/lib/perl5/site_perl/sun4-solaris /opt/local/lib/perl5/site_perl
.)
at /opt/local/lib/perl5/5.00502/AutoLoader.pm line 127.
at /opt/local/lib/perl5/5.00502/Getopt/Long.pm line 44
Well, sure enough, the following doesn't find it:
% cd /opt/local/lib/perl5/5.00502
% find . -type f -name autosplit.ix -print
./sun4-solaris/auto/DynaLoader/autosplit.ix
./sun4-solaris/auto/DB_File/autosplit.ix
./sun4-solaris/auto/GDBM_File/autosplit.ix
./sun4-solaris/auto/POSIX/autosplit.ix
% ls -aF auto/Getopt/Long
./ Configure.al FindOption.al config.al
../ Croak.al GetOptions.al
Any hints as to how I screwed up?
If you need more info and/or provide an answer, please e-mail
me, removing the "NOSPAM." from the provided address.
Thanks in advance.
Oh, also, as long as I'm seeking advice: I installed the perl
files and directories owned by root. This requires me to run
the CPAN module as root in order to add modules. This seems like
a bad thing. Is there any reason not to re-assign the ownership
of the whole perl installation to a non-privileged user?
Thanks again.
larry-granroth@NOSPAM.uiowa.edu
------------------------------
Date: 22 Oct 1998 03:36:52 GMT
From: ilya@ns1.foothill.net (Ilya)
Subject: a script to collect information for a web page
Message-Id: <70m98l$kpa$1@ns2.foothill.net>
I'd like some comments from the comp.lang.perl.misc gurus. I am building
input for a web page with this perl script. I remsh to each machine, run
commands, save the output for the web page.
I am finding Perl an incredibly powerful, diverse tool. I have programmed
before, but this is my first script so I don't know all the tricks. My
next step is to setup an array of records (one record per machine) and
read information into it, then write it to a file. The platform is HPUX
10.x and 9.x 700,800 and 900. I am cataloging software and versions for
each machine, and looking at other helpful information. The web is the
output, but ultimately it is going to an Excel spreadsheet. This is just a
start.
Ilya
.......................................
#!/usr/contrib/bin/perl -w
# Read in a file in the format:
# fully_qualified_name1
# fully_qualified_name2
# fully_qualified_name3
open (LIST, "<list.test"); #open master_list for reading
while ($line = <LIST>) # process every line in list until EOF
{
chop ($line); # delete the last character, newline
print ("Checking $line \n");
##########################################################################
# Find out the model of the machine
##########################################################################
sub get_uname
{
print (" Executing get_uname \n");
open (LOCATION, ">/home/ilya/web/sysinfo/$line/uname.out") || die "cannot open \n";
open (TEMP, "remsh $line uname -a |");
system ("chmod 755 /home/ilya/web/sysinfo/$line/uname.out ");
while (<TEMP>)
{
print LOCATION $_; # LOCATION <- $_
}
close LOCATION; # flush the buffer and write to the file
}
##########################################################################
# Find out the version of the HPUX operating system
##########################################################################
sub get_os_version
{
print (" Executing get_os_version \n");
open (LOCATION, ">/home/ilya/web/sysinfo/$line/os_version.out") || die "cannot open \n";
open (TEMP, "remsh $line uname -a |");
system ("chmod 755 /home/ilya/web/sysinfo/$line/os_version.out ");
while (<TEMP>)
{
print LOCATION $_;
}
close LOCATION; # flush the buffer and write to the file
##################
open (LOCATION2, "cat /home/ilya/web/sysinfo/$line/os_version.out |");
while (<LOCATION2>)
{
chop;
@Fld = split(" ");
$VERSION = $Fld[2];
}
close LOCATION2; # flush the buffer and write to the file
}
##########################################################################
# Run bdf to see what it mounted
##########################################################################
sub get_bdf
{
print (" Executing get_bdf \n");
open (LOCATION, ">/home/ilya/web/sysinfo/$line/bdf.out") || die "cannot open \n";
open (TEMP, "remsh $line /usr/bin/bdf |");
system ("chmod 755 /home/ilya/web/sysinfo/$line/bdf.out ");
while (<TEMP>)
{
print LOCATION $_; # LOCATION <- $_
}
close LOCATION; # flush the buffer and write to the file
}
##########################################################################
# Get the list of products via swlist, patches and 10.20 products, which
# are obviously compliant.
##########################################################################
sub get_swlist
{
print (" Executing get_swlist \n");
open (LOCATION, ">/home/ilya/web/sysinfo/$line/swlist.out") || die "cannot open \n";
open (TEMP, "remsh $line /usr/sbin/swlist -l product | egrep -v 'PHCO|PHKL|PHNE|PHSS|10.20' |");
system ("chmod 755 /home/ilya/web/sysinfo/$line/swlist.out ");
while (<TEMP>)
{
print LOCATION $_;
}
close LOCATION; # flush the buffer and write to the file
}
##########################################################################
# List the disks on the system
##########################################################################
sub get_ioscan_disk
{
print (" Executing get_ioscan_disk \n");
open (LOCATION, ">/home/ilya/web/sysinfo/$line/ioscan_disk.out") || die "cannot open \n";
if ($CHAR != "09")
{ open (TEMP, "remsh $line /etc/ioscan -fC disk |"); }
else
{ open (TEMP, "remsh $line /etc/ioscan -funC disk |"); }
open (TEMP, "remsh $line /etc/ioscan -funC disk |");
system ("chmod 755 /home/ilya/web/sysinfo/$line/ioscan_disk.out ");
while (<TEMP>)
{
print LOCATION $_;
}
close LOCATION; # flush the buffer and write to the file
}
##########################################################################
# List the Volume Groups on the system
##########################################################################
sub get_volume_groups
{
print (" Executing get_volume_groups \n");
open (LOCATION, ">/home/ilya/web/sysinfo/$line/ioscan_vg.out") || die "cannot open \n";
open (TEMP, "remsh $line /etc/vgdisplay |");
system ("chmod 755 /home/ilya/web/sysinfo/$line/ioscan_vg.out ");
while (<TEMP>)
{
print LOCATION $_;
}
close LOCATION; # flush the buffer and write to the file
}
##########################################################################
# Main. Call all the procedures from here.
##########################################################################
# Call these procedures for each iteration of the loop
&get_uname;
&get_bdf;
&get_os_version; # find out what version it is
@Fld = split(/\./,$VERSION);
$CHAR = $Fld[1];
if ($CHAR != "09") # on a 9.x, do not run what works only on 10.x
{
&get_swlist;
&get_ioscan_disk;
}
&get_volume_groups;
} # while
close (LIST);
------------------------------
Date: 22 Oct 1998 02:50:12 GMT
From: bobn@interaccess.com (Bob N.)
Subject: Any Chicago Perl Mongers Group?
Message-Id: <70m6h4$jrd$4@supernews.com>
If so, please let me know.
- Bob N.
------------------------------
Date: Thu, 22 Oct 1998 03:30:30 GMT
From: Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com>
Subject: Re: Any Chicago Perl Mongers Group?
Message-Id: <362EA44D.C27D1F71@bbnplanet.com>
http://www.pm.org/groups.html - it lists all of the groups including the
chicago.pm
Happy mongering. :)
e.
After all, the cultivated person's first duty is to
always be prepared to rewrite the encyclopedia. - U. Eco -
------------------------------
Date: 21 Oct 1998 23:08:39 -0500
From: jima@MCS.COM (Jim Allenspach)
Subject: Re: Any Chicago Perl Mongers Group?
Message-Id: <70mb47$jrv@Mercury.mcs.net>
bobn@interaccess.com (Bob N.) writes:
>If so, please let me know.
http://chicago.pm.org/
jma
------------------------------
Date: 22 Oct 1998 02:28:27 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: automatic garbage collection and memory leak
Message-Id: <70m58b$fle$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Larry Wall
<larry@kiev.wall.org>],
who wrote in article <70m179$j1i@kiev.wall.org>:
> However, he said "used up...at every cycle", indicating a continuous
> leak, and hence, while your statement is correct with respect to
> Tom's statement, with respect to the original problem, your answer
> is "unresponsive", as they say in court.
This is why I was not responding to his statement, but to Tom's one. ;-)
> If it's leaking a megabyte of memory every time through the loop, I'd
> say it's a bad bug.
If Perl takes more memory than judged reasonable, I'd say it's a bad
bug. Judging what is reasonable and what is not is left as an
exercise to the ardent reader. ;-)
Ilya
------------------------------
Date: Wed, 21 Oct 1998 19:12:01 -0700
From: E Unpingco <eunpingc@ucsd.edu>
Subject: flock() win32
Message-Id: <362E9471.56A9F0B6@ucsd.edu>
This has probably been asked here a hundred times already but here
goes...
How can I get flock() support in Perl for Win32?
Thanks,
Ed
------------------------------
Date: Thu, 22 Oct 1998 02:37:44 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: flock() win32
Message-Id: <YTwX1.3$Vs4.22460@nsw.nnrp.telstra.net>
In article <362E9471.56A9F0B6@ucsd.edu>,
E Unpingco <eunpingc@ucsd.edu> writes:
> This has probably been asked here a hundred times already but here
> goes...
>
> How can I get flock() support in Perl for Win32?
CPAN used to have a win32 FAQ. It seems to have been discontinued, and
replaced by some html files that don't really work very well, because
they refer to style sheets which are not there.
Anyway, you can try Activestate:
http://www.activestate.com/support/faqs/win32/
although right now that also seems to be stuffed.
I guess you'll have to wait until they've got all that working again.
But i seem to recall that win95/98 don't have flock. Not a perl
problem, just s systems problem. Nt does have it, I believe. Not too
sure.
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | I'm just very selective about what I
Commercial Dynamics Pty. Ltd. | accept as reality - Calvin
NSW, Australia |
------------------------------
Date: 21 Oct 1998 23:34:50 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Forks and other Utensils
Message-Id: <70m94q$m0o$1@monet.op.net>
In article <362E8266.663038BB@iname.com>,
Jordan Conley <cynical@iname.com> wrote:
>Luckily enough I am the sys admin...But what do you mean that zero forks
>are safe...I know I have to check the return, but why do you say zero
>forks are safe??
He means that the very first fork might fail, so you have to check the
return code every time and take the proper action when and if you see
a failure.
Try it this way: ``How many traffic lights is it safe to run?''
``Zero. You have to look at every one to see if it is red.''
------------------------------
Date: 22 Oct 1998 04:06:57 GMT
From: "G. North" <aufempen@dyson.brisnet.org.au>
Subject: Help:Tried installing PERL under WIN3.11, it simply gave me an error 2 on bat. installation
Message-Id: <70mb11$8ga$1@bunyip.cc.uq.edu.au>
Help:Tried installing PERL under WIN3.11, it simply gave me an error 2 on
bat. installation
I downloaded PW321316.exe from Active.
Unzipped 252 files perfectly well.
Then when I am trying to run PERLW32-Install.bat, I
am receiving an error 2.
I have read a lot of FAQ about WIN32 but there is
nothing specific about the installation under WIN3.11
or MSDOS 6.22.
If anyone can help.
Please email direct if you wish
aufempen@dyson.brisnet.org.au
Cheers Guy North
------------------------------
Date: Wed, 21 Oct 1998 22:09:30 -0400
From: Mark Sholund <msholund@wans.net>
Subject: interacting with alarm
Message-Id: <362E93DA.47BDD632@wans.net>
I am trying to write a routine that waits x seconds for a keystroke and
if it doesn't, it executes some code. For lack of knowledge of anything
better to do, I chose the alarm function to do it. I have it signaling
properly, but when it finishes with the alarm subroutine, the program
just stops. I would like it to return back to the program and again
wait x seconds for input from <STDIN> (I have a big while loop). I
tried a goto, but that refuses to goto a line outside of the
subroutine. The program is of the form:
while (1)
{
$SIG(ALRM) = 'my_timer';
alarm 10;
$number = <STDIN>;
alarm 0;
.. do something with the number
}
sub my_timer()
{
do something
}
Does anybody have a suggestion for doing this? I've tried exit, return,
and other odds and ends of things I found.
--
in accordance with prophecy.
"The price of freedom is eternal vigilance."
- Admiral Tolwyn (Wing Commander IV)
------------------------------
Date: Thu, 22 Oct 1998 03:36:37 GMT
From: dagarath@anti.spam.shreve.net (Dagarath)
Subject: Re: New to programming - New to Perl - LOST!!!!
Message-Id: <36309ee1.21124815@news.shreve.net>
APi505e.exe dated 10/20/98 is there now.. check the ftp site so you
can list the files instead of http
seems to be working fine, i think the web pages are just lagging
behind
On Thu, 15 Oct 1998 16:12:16 -0400, Mark Cain <mark@uninetwork.com>
wrote:
>Larry Rosler wrote:
>
>> [Posted to comp.lang.perl.misc and a copy mailed.]
>>
>> In article <362636FD.AB350249@uninetwork.com> on Thu, 15 Oct 1998
>> 13:55:09 -0400, Mark Cain <mark@uninetwork.com> says...
>> > There is a more recent version of Active State than 502.
>> >
>> > Michal Rutka wrote:
>> ...
>> > > point your browser on http://www.ActiveState.com/ActivePerl/ and try to
>> > > get APi502e.exe. This will install you perl on a win32 system.
>>
>> Where? Not at the site that Michal points to.
>>
>
>http://www.ActiveState.com/ActivePerl/download/APi504e.exe
>
>The above link is a very recent build -- 504 dated 10/9/98.
>
>The binary build of APi502e.exe is dated 8/11/98.
------------------------------
Date: Thu, 22 Oct 1998 02:24:01 GMT
From: "Steve Purkis" <spurkis@engsoc.carleton.ca>
Subject: Ottawa.pm ??
Message-Id: <5HwX1.226$4a.1003222@news20.bellglobal.com>
Hey all you Ottawa perl nuts...
Are there enough of us to start a Perl Mongers group?
regards,
+--- ---+
Steve Purkis Carleton U Computer Engineering
Agent Perl module: http://epn.ml.org/~spurkis/Agent
<spurkis@engsoc.carleton.ca>
------------------------------
Date: 21 Oct 1998 22:43:27 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Perl & Y2K - booby trap code
Message-Id: <70m64f$llp$1@monet.op.net>
In article <70ljq5$f5c@euphony.tri.sbc.com>,
Steve Monson <monson@tri.sbc.com> wrote:
>I see nothing wrong with year-1900. To get the proper year, just always
>add 1900. Not even a problem when comparing dates, unless you go back
>before 1900.
The problem is that people see that it returns `98' and come to the
wrong conclusion about how the year is represented; then they write
the conversion code to match their wrong conclusions.
If it just returned `1998', it owuld be obcious to everyone what was
going on and people would always write the correct conversion code.
------------------------------
Date: 21 Oct 1998 23:27:23 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Perl & Y2K - booby trap code
Message-Id: <70m8mr$lv5$1@monet.op.net>
In article <hSqX1.68$6J3.1149167@news2.voicenet.com>,
Matt Knecht <hex@voicenet.com> wrote:
>Gisle Aas <aas@sn.no> wrote:
>Why is this a century bug, and blamed on Perl|C|Java|COBOL (Of course,
>substitute proper syntax for the language concerned), and not the
>programmer?
It is the programmer's fault. But the language can make it easy for
the programmer to do it right, or it can make it difficult for the
programmer to do it right. In this case, the language makes it easy
for the programmer to make a mistake, so the language has to take some
of the blame.
If someone trips on a banana peel, it's partly their fault for not
looking where they were going, but it's also partly the fault of
whoever left the banana peel in the way. This is a banana peel.
------------------------------
Date: Wed, 21 Oct 1998 19:58:04 -0700
From: Christopher Clark <clark@cybcon.com>
Subject: Re: Perl Cookbook - is this the best perl book?
Message-Id: <362E9F3C.66F206CF@cybcon.com>
I reccomend 'Effective Perl Programming' as an excellent book. Like
'Perl Cookbook' and unlike the Camel book it deals with guidelines about
how to use Perl well. It is also very readable, so I reccomend it
highly. Not to bash 'Perl Cookbook' or the Camel book -- both of these
are excellent.
Also, I have to weigh in with the posters who like OReilley. Never got
a bad book from them.
-Chris
paulwade@my-dejanews.com wrote:
>
> In article <6vv8h6$799$1@nnrp1.dejanews.com>,
> lqyrms@nottingham.ac.uk wrote:
> > Could anybody who has read the Perl Cookbook please tell me if this is the
> > best perl book to get. There are a couple of reviews of this book at amazon
> > http://www.amazon.com/exec/obidos/ASIN/1565922433/bibs/ , but I would
> > appreciate the views of the experts in this newsgroup too.
> >
> > Many thanks,
> >
> > --
> > Mark.
>
> Depends what you mean by 'best' and for what purpose. However, it is an
> excellent book.
>
> Paul.
>
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 22 Oct 1998 00:33:35 -0400
From: Bill Jones <bill@fccj.org>
Subject: Re: Perl Cookbook - is this the best perl book?
Message-Id: <362EB59F.EF35DECE@fccj.org>
PM Jenkins wrote:
>
> In article <70l16n$204@ohnasn01.houston.omnes.net>, pmj@hotmail.com (PM Jenkins) wrote:
>
> >I suggest that people buy this book when the next
> >release comes out. There are SO MANY typos/bugs/... in this book
> >(757 of them). Probably you don't want to hand-fix them by marking
> >over 757 spots. Nor do you want to attach/insert 27 pages of bug listing
> >in the book. My guess is that after authors typed in, they never looked it
> >back until the book printed out. Authors argue that 757 bugs are very
> >small comparing the size (less than 1 bugs / page !). Gees what an
> >attitude !! I think that they owe an apology to the buyers for publishing
> >such a screwed-up error-ridden version.
> >One question that I had was, how come authors ended up typing
>
> I forgot to say that
>
> O'Reilly = lots of errors in the books, no quality control (= readers
> end up getting low quality books - regardless of the contents
> quality).
>
> PM Jenkins
Hmmm, I know that last statement prolly changed my mind - Not!
Pound for pound ORA books have proven much more relevant and useful
than any other similar books. The Perl Cookbook ESPECIALLY was
very useful.
HTH,
-Sneex- :]
________________________________________________________________________
Bill Jones | FCCJ Webmaster | x3089 | http://webmaster.fccj.org:81
------------------------------------------------------------------------
__ _ RedHat 5.1 Manhatten
/ /(_)_ __ _ ___ __ http://www.apache.org
/ / | | '_ \| | | \ \/ / http://www.redhat.com
/ /__| | | | | |_| |> < http://www.perl.com
\____/_|_| |_|\__,_/_/\_\ http://www.gimp.org
------------------------------
Date: Thu, 22 Oct 1998 00:38:10 -0400
From: Bill Jones <bill@fccj.org>
Subject: Re: Perl Cookbook - is this the best perl book?
Message-Id: <362EB6B2.A31CF57F@fccj.org>
Tom McGee wrote:
>
> Me, I'm gratefully printing out the errata and I'll hand-correct my book
> on the train tonight. Errors or not, it's already paid for itself.
>
> Tom McGee
>
> - - - - - - - - - - -
Hear! Hear!
-Sneex- :]
________________________________________________________________________
Bill Jones | FCCJ Webmaster | x3089 | http://webmaster.fccj.org:81
------------------------------------------------------------------------
__ _ RedHat 5.1 Manhatten
/ /(_)_ __ _ ___ __ http://www.apache.org
/ / | | '_ \| | | \ \/ / http://www.redhat.com
/ /__| | | | | |_| |> < http://www.perl.com
\____/_|_| |_|\__,_/_/\_\ http://www.gimp.org
------------------------------
Date: 22 Oct 1998 02:30:17 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: perl debugger crash
Message-Id: <70m5bp$fnr$1@mathserv.mps.ohio-state.edu>
[A complimentary Cc of this posting was sent to Eric Sheng
<shenge@ece.ucdavis.edu>],
who wrote in article <70lrll$s0p$1@mark.ucdavis.edu>:
> I am trying to debug a script that I wrote with the perl -d debugger.
> The problem is that it crashes
[...]
> main::(./my_script.pl:22): $pattern_file = "ppsim";
> DB<1> b 204
> DB<2> c
> DB::fake::(/opt/perl5.004_04/lib/PA-RISC1.1/5.00404/perl5db.pl:2083):
> 2083: "Debugged program terminated. Use `q' to quit or `R' to restart.";
> DB<2>
Dontseenocrashhere.
Ilya
------------------------------
Date: Thu, 22 Oct 1998 00:39:56 -0400
From: rjk@coos.dartmouth.edu (Ronald J Kimball)
Subject: Re: perl debugger crash
Message-Id: <1dh9yfb.3pp7wmxjcp7sN@bay1-411.quincy.ziplink.net>
Eric Sheng <shenge@ece.ucdavis.edu> wrote:
> main::(./my_script.pl:22): $pattern_file = "ppsim";
> DB<1> b 204
> DB<2> c
> DB::fake::(/opt/perl5.004_04/lib/PA-RISC1.1/5.00404/perl5db.pl:2083):
> 2083: "Debugged program terminated. Use `q' to quit or `R' to restart.";
> DB<2>
>
> after setting b 204, I did a c for continue. Debugged program then terminated
> for no apparent reason, and I couldn't go on anymore. Any ideas?
Umm... Is it possible your debugged program terminated because it reach
the end of the program? Are you sure that line 204 is executed in the
normal flow of your program?
You really haven't provided enough information for us to help you, I'm
afraid.
--
_ / ' _ / - aka - rjk@coos.dartmouth.edu
( /)//)//)(//)/( Ronald J Kimball chipmunk@m-net.arbornet.org
/ http://www.ziplink.net/~rjk/
"It's funny 'cause it's true ... and vice versa."
------------------------------
Date: 22 Oct 1998 03:17:05 GMT
From: ilya@ns1.foothill.net (Ilya)
Subject: Re: Perl Y2K copmliance
Message-Id: <70m83h$jgq$1@ns2.foothill.net>
Is Perl 5.003 Y2K compliant on HPUX 20.20? Is version 5.004 compliant?
Ilya
------------------------------
Date: Thu, 22 Oct 1998 03:00:21 GMT
From: benmoretti@my-dejanews.com
Subject: postscript to acrobat in perl
Message-Id: <70m745$m64$1@nnrp1.dejanews.com>
Howdy,
There are a number of perl scripts to extract data from PDFs, and I know that
there is a script that converts text files natively to PDF.
What I need is a perl script that would convert postscript to PDF. I know it
could be done in perl.
Does anyone know of one and it's location?
If not, we should form a team to develop one!
Cheers
Ben
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 21 Oct 1998 23:38:44 -0400
From: mjd@op.net (Mark-Jason Dominus)
Subject: Re: Prevent Export of Names
Message-Id: <70m9c4$m1d$1@monet.op.net>
In article <70lfr7$els$1@pilot.njin.net>,
David Alan Black <dblack@pilot.njin.net> wrote:
>my $hidden = sub { print "I ain't goin' nowhere\n" };
>
>As far as I know, that's the only way to prevent peekage.
That is the only way to prevent peekage.
------------------------------
Date: Wed, 21 Oct 1998 21:22:09 -0600
From: "seneca" <swan@peakpeak.com>
Subject: trouble reading binary files
Message-Id: <362e97b2.0@makalu.peakpeak.com>
# Yes I'd like to read binary files, what I'm I doing wrong?
# If I change the 'len' from 8 to say 16 I dont see the same
# sequence in the data. Likewise if I change the unpack
# from B to b I don't see the sequence 'byte' reversed.
# Hacked from the lwall's hex dump script.
#
die "no file" if ($#ARGV == -1);
$file = $ARGV[0];
open (IF,"$file") or die "error opening $file $!\n";
binmode IF;
$len = 8;
$fmt = 'B' . $len; # also tried 'b'
while($line = read(IF, $bdata, $len) == $len){
$contents = unpack($fmt,$bdata);
printf " %8.8lx %s\n",$offset, $contents;
$offset += $len;
}
# my isp does not 'keep' this news group, maybe I
# could get a cc reply to my post.
# --seneca
------------------------------
Date: Thu, 22 Oct 1998 02:24:50 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: What's the "best" way to call one Perl script from another?
Message-Id: <SHwX1.2$Vs4.22460@nsw.nnrp.telstra.net>
In article <70m2dm$3ks@transfer.stratus.com>,
alfred@hw.stratus.com (Alfred von Campe) writes:
> $status = system("script_name param1 param2");
> die "$0: script_name failed\n" if (($status >> 8) != 0);
# perldoc -f do
Martien
--
Martien Verbruggen |
Webmaster www.tradingpost.com.au | I'm just very selective about what I
Commercial Dynamics Pty. Ltd. | accept as reality - Calvin
NSW, Australia |
------------------------------
Date: 12 Jul 98 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Special: Digest Administrivia (Last modified: 12 Mar 98)
Message-Id: <null>
Administrivia:
Special notice: in a few days, the new group comp.lang.perl.moderated
should be formed. I would rather not support two different groups, and I
know of no other plans to create a digested moderated group. This leaves
me with two options: 1) keep on with this group 2) change to the
moderated one.
If you have opinions on this, send them to
perl-users-request@ruby.oce.orst.edu.
The Perl-Users Digest is a retransmission of the USENET newsgroup
comp.lang.perl.misc. For subscription or unsubscription requests, send
the single line:
subscribe perl-users
or:
unsubscribe perl-users
to almanac@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.misc (and this Digest), send your
article to perl-users@ruby.oce.orst.edu.
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
To request back copies (available for a week or so), send your request
to almanac@ruby.oce.orst.edu with the command "send perl-users x.y",
where x is the volume number and y is the issue number.
The Meta-FAQ, an article containing information about the FAQ, is
available by requesting "send perl-users meta-faq". The real FAQ, as it
appeared last in the newsgroup, can be retrieved with the request "send
perl-users FAQ". Due to their sizes, neither the Meta-FAQ nor the FAQ
are included in the digest.
The "mini-FAQ", which is an updated version of the Meta-FAQ, is
available by requesting "send perl-users mini-faq". It appears twice
weekly in the group, but is not distributed in the digest.
For other requests pertaining to the digest, send mail to
perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
sending perl questions to the -request address, I don't have time to
answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V8 Issue 4041
**************************************
