[7916] in Perl-Users-Digest
Perl-Users Digest, Issue: 1541 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Sat Dec 27 22:07:31 1997
Date: Sat, 27 Dec 97 19:00:20 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Sat, 27 Dec 1997 Volume: 8 Number: 1541
Today's topics:
Re: capturing strings (jay)
Re: capturing strings (brian d foy)
Re: Finding the TITLE to a HTML page (brian d foy)
Re: flock Not Available in MacPerl 5? (Adam Schneider)
Re: How would you do this... (David Grove)
Re: How would you do this... (John C. Randolph)
MATLAB use of perl troxel@sammcgees.com
Re: overloading in function (brian d foy)
Re: Perl 5.004_04 on MP-RAS problems. (Mike Wescott)
Perl app calling Java classes <jyen@us.oracle.com>
Re: Perl doc in .HLP format? (Gilles Maire)
Re: Perl doc in .HLP format? (David Grove)
Re: PERL Memory Problems (Martien Verbruggen)
Re: Which language pays most 17457 -- C++ vs. Java? <carla@ici.net>
Re: Which language pays most? Smalltalk, not C++ nor J <jwaxman@ymail.yu.edu>
Digest Administrivia (Last modified: 8 Mar 97) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Sat, 27 Dec 1997 23:28:25 GMT
From: mocat@NOSPAM.best.com (jay)
Subject: Re: capturing strings
Message-Id: <34a58e6d.448654557@nntp.best.com>
On Thu, 25 Dec 1997 18:33:04 -0800, Tom Phoenix
<rootbeer@teleport.com> wrote:
>On Thu, 25 Dec 1997, blacktape wrote:
>
>> i want to capture <img*> tags and put them into a variable, then have
>> it read the image name, put that into another variable, then replace
>> the <img*> text with something like <img alt="image.jpg"
>> src="image.jpg">.
>
>Sounds as if you want to do pattern matching, then use the match variables
>such as $1. If you have more questions after you've found these entries in
>the Perl docs, please post again. Hope this helps!
I was unable to find anything that would help me do what I want to do
in the perl documentation. If you can direct me to an exact spot in
the documentation to look, I'll gladly look at it and see what I can
do from what I learn...
If you need a rehash of what i want to do...
infile:
blah blah dsa blah blah <img src="img.jpg"> blah blah
get everything inbetween <> and put it into a variable.
i already figured out the rest of my problem, i'm just having problems
with this first (and i'd guess... easy) step.
thx for any help.
------------------------------
Date: Sat, 27 Dec 1997 21:47:38 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: capturing strings
Message-Id: <comdog-2712972147380001@news.panix.com>
In article <34a58e6d.448654557@nntp.best.com>, mocat@NOSPAM.best.com (jay) wrote:
> On Thu, 25 Dec 1997 18:33:04 -0800, Tom Phoenix
> <rootbeer@teleport.com> wrote:
>
> >On Thu, 25 Dec 1997, blacktape wrote:
> >
> >> i want to capture <img*> tags and put them into a variable, then have
> >> it read the image name, put that into another variable, then replace
> >> the <img*> text with something like <img alt="image.jpg"
> >> src="image.jpg">.
> >
> >Sounds as if you want to do pattern matching, then use the match variables
> >such as $1. If you have more questions after you've found these entries in
> >the Perl docs, please post again. Hope this helps!
>
> I was unable to find anything that would help me do what I want to do
> in the perl documentation.
perhaps you want the Camel or Llama books [1] which have indices
and tables of content.
you could also look in the perl man page, which lists the other
man pages by name and subject. from there you might look at the
perlre manpage.
it's also likely that htis question has been asked before, so you
could search DejaNews [2] to see what you can find.
there might already be a module that does what you want on CPAN [3].
[1] see the perlbook man page for Programming Perl and Learning Perl
respectively.
[2] <URL:http://www.dejanews.com>
[3] <URL:http://www.perl.com>
--
brian d foy <http://computerdog.com>
#!/usr/bin/perl
$_=q|osyrNewkecnaYhe.mlorsePptMskurj|;s;[NY.PM]; ;g;local$\=
qq$\n$;@pm=split//;while($NY=pop @pm){$pm.=$NY;$ny.=pop @pm}
$pm=join'',reverse($ny,$pm);open(NY,'>&STDOUT');print NY $pm
------------------------------
Date: Sat, 27 Dec 1997 21:26:40 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: Finding the TITLE to a HTML page
Message-Id: <comdog-2712972126400001@news.panix.com>
In article <681kas$t8g$2@news.stlnet.com>, psullivan@stlnet.com (psullivan) wrote:
> How would I find the title from a html file? I tried...
>
> open(HTML,$htmlfile);
> @html = <HTML>;
> close(HTML);
>
> foreach $line (@html) {
> if ($line =~ /title/i) {
> $html_title = $line;
> }
> }
>
> and then I would take out the <title> and </title> tags, but it returns a
> blank $html_line variable. It looks fine to me, but is there another way of
> finding the title without having to resort to use calls? (i.e. the HTML::
> ones, if such one exists).
you can look at the the HTML::HeadParser module to see how it is done.
some things you will need to consider (and break your snippet)
* the title might be on more than one "line"
* the word "title" might be used outside of an HTML tag
* there might be more than the title on a line
and so on. there are a lot of details to consider in doing such a thing,
so shunning the use of modules might not be a good approach. if some
pointy haired boss won't let someone install a standard packege like LWP,
then they can do without Cool Things like you script.
good luck :)
--
brian d foy <http://computerdog.com>
#!/usr/bin/perl
$_=q|osyrNewkecnaYhe.mlorsePptMskurj|;s;[NY.PM]; ;g;local$\=
qq$\n$;@pm=split//;while($NY=pop @pm){$pm.=$NY;$ny.=pop @pm}
$pm=join'',reverse($ny,$pm);open(NY,'>&STDOUT');print NY $pm
------------------------------
Date: Sat, 27 Dec 1997 18:42:21 -0600
From: NO_SPAM_acs@bitstream.net (Adam Schneider)
Subject: Re: flock Not Available in MacPerl 5?
Message-Id: <NO_SPAM_acs-2712971842220001@acs.bitstream.net>
VikR@aol.com wrote:
> A client of mine is running MacPerl 5.1.5r4 on a Mac, and reports that flock
> is unavailable. He's getting a
> "# The flock() function is unimplemented." error. I can see in the MacPerl
> docs that flock seems to be present in MacPerl. What could explain this?
I can't answer your primary question, but I do have a small morsel of
info: most of the docs that comes with MacPerl are identical to the UNIX
Perl docs. So just because you can look something up using Command-H,
doesn't mean you can use it. :^(
Adam
------------------------------
Date: Sat, 27 Dec 1997 19:26:54 GMT
From: dgrove@ntslink.net (David Grove)
Subject: Re: How would you do this...
Message-Id: <34a5562a.6336075@news.ntslink.net>
Mine would be about the same, just a little more puritanical.
use FileHandle;
my $infa = new FileHandle;
my $outa = new FileHandle;
my ($line, $datum, @data, @goodlist, @badlist);
if($infa->open($ARGV[0]) && $outa->open(">nbsort.txt")) {
until($infa->eof) {
chop($line = <$infa>);
$line =~ s/\d+=//;
@data = split(' ', $line);
if($data[1] == 1) {
push(@goodlist, $line);
} else {
push(@badlist, $line);
}
}
$infa->close;
foreach $datum(@goodlist) { print $outa "$datum\n"; }
foreach $datum(@badlist) { print $outa "$datum\n"; }
$outa->close;
} else {
die "Couldn't open one or more files\n";
}
>while(<>) {
> s/[^\.]+=//;
> @info = split( /\s/, $_ );
> if( $info[1] == 1 ) {
> push( @goodlist, join( ' ', $info[0], $info[1], $info[2] ));
> } else {
> push( @badlist, join( ' ', $info[0], $info[1], $info[2] ));
> }
>}
>open( OUTFILE, ">nbsort.txt" ) || die( $! );
>foreach $infoline (@goodlist) {
> print OUTFILE "$infoline\n";
>}
>foreach $infoline (@badlist) {
> print OUTFILE "$infoline\n";
>}
>close( OUTFILE );
------------------------------
Date: 28 Dec 1997 02:04:18 GMT
From: jcr.remove@this.phrase.idiom.com (John C. Randolph)
Subject: Re: How would you do this...
Message-Id: <684c32$nuv$1@news.idiom.com>
In <8csoreo332.fsf@gadget.cscaper.com> Randal Schwartz wrote:
-> >>>>> "John" == John C Randolph <jcr.remove@this.phrase.idiom.com> writes:
->
-> John> @lines = <>;
->
-> John> sort bySecondToken @lines;
->
-> This line does Very Little. Except perhaps waste CPU time.
->
-> The sort operator does *not* attack/alter its argument. So you're
-> looking at the value of @lines, sorting them nicely, but then
-> discarding the sorted list. :-)
Yeah, that's what happens when I don't test something that I write off the
top of my head.
Chris, if you're reading this thread, do like Randal said.
That line should be :
@lines = sort bySecondToken @lines;
(But I haven't tested that either!)
-jcr
--
John C. Randolph (408) 358-6732 NeXT mail preferred.
Chief Technology Officer, WARPnet Incorporated.
@"Hey, %s! You're a NAZI, and you can't spell!"
------------------------------
Date: Sat, 27 Dec 1997 14:11:27 -0600
From: troxel@sammcgees.com
Subject: MATLAB use of perl
Message-Id: <883253116.769327108@dejanews.com>
I recently install MATLAB 5.0 and noticed a "perl.exe" file in the MATLAB
directory. Cool i thought. Does anyone know what Mathworks uses
perl for.
-------------------==== Posted via Deja News ====-----------------------
http://www.dejanews.com/ Search, Read, Post to Usenet
------------------------------
Date: Sat, 27 Dec 1997 21:34:27 -0500
From: comdog@computerdog.com (brian d foy)
Subject: Re: overloading in function
Message-Id: <comdog-2712972134270001@news.panix.com>
In article <682e79$rjv$2@nntp1.ba.best.com>, "Xah" <xah@best.com> wrote:
> How can I write a function so that its behavior depends on the number of
> arguments?
in such cases i write a "meta-routine" which figures out how many
arguments there are then calls another routine to do the actual work.
the meta-routine can supply default arguments or switch the order
around if it likes:
>range[a_]:=range[1,a,1];
return &work_routine(1,$[0],1) if scalar @_ == 1;
>range[a_,b_]:=range[a,b,1];
return &work_routine($_[0],$[1],1) if scalar @_ == 2;
and so on. good luck :)
--
brian d foy <http://computerdog.com>
#!/usr/bin/perl
$_=q|osyrNewkecnaYhe.mlorsePptMskurj|;s;[NY.PM]; ;g;local$\=
qq$\n$;@pm=split//;while($NY=pop @pm){$pm.=$NY;$ny.=pop @pm}
$pm=join'',reverse($ny,$pm);open(NY,'>&STDOUT');print NY $pm
------------------------------
Date: 27 Dec 1997 21:21:25 -0500
From: wescott@cygnus.ColumbiaSC.NCR.COM (Mike Wescott)
Subject: Re: Perl 5.004_04 on MP-RAS problems.
Message-Id: <x43ejemcm2.fsf@cygnus.ColumbiaSC.NCR.COM>
In article <67onmi$dl@newsops.execpc.com> manning@execpc.com (Steve Manning) writes:
> wescott@cygnus.ColumbiaSC.NCR.COM (Mike Wescott) wrote:
>>In article <slrn69tnan.3nl.laughman@soccer.cis.ohio-state.edu> laughman@wutang.acs.ohio-state.edu (jason m. laughman) writes:
>>The simplest solution is to pick up the perl5.004_04.pkg.gz from ncrinfo.ncr.com
>>and install that. Or, if you really want to build it yourself get the source
>>from the same place and at least use the config.sh file to start with. The
>>supplied source includes one fix to enable the DB_File extension.
>Mike,
> Could you post the DB_File patch?
Below.
> BTW, here is a patch that fixes the select() mis-config:
Hmm. I think you might need more than that. Here's my config.sh as well:
diff -cr perl5.004_04/ext/DB_File/Makefile.PL perl5.004_04.orig/ext/DB_File/Makefile.PL
*** perl5.004_04/ext/DB_File/Makefile.PL Mon Dec 22 21:12:28 1997
--- perl5.004_04.orig/ext/DB_File/Makefile.PL Fri Aug 16 15:41:32 1996
***************
*** 6,12 ****
WriteMakefile(
NAME => 'DB_File',
! LIBS => ["-L/usr/local/lib -ldb -lucb -lc"],
MAN3PODS => ' ', # Pods will be built by installman.
#INC => '-I/usr/local/include',
VERSION_FROM => 'DB_File.pm',
--- 6,12 ----
WriteMakefile(
NAME => 'DB_File',
! LIBS => ["-L/usr/local/lib -ldb"],
MAN3PODS => ' ', # Pods will be built by installman.
#INC => '-I/usr/local/include',
VERSION_FROM => 'DB_File.pm',
diff -cr perl5.004_04/config.sh perl5.004_04.orig/config.sh
*** perl5.004_04/config.sh Mon Dec 22 20:50:45 1997
--- perl5.004_04.orig/config.sh Sat Dec 27 21:08:33 1997
***************
*** 1,511 ****
- #!/bin/sh
- #
- # This file was produced by running the Configure script. It holds all
- # the definitions figured out by Configure. Should you modify any of
- # these values, do not forget to propagate your changes by running
- # "Configure -S"; or, equivalently, you may run each .SH file yourself.
- #
-
- # Configuration time: Mon Dec 22 20:31:07 EST 1997
- # Configured by: wescott
- # Target system: unix_sv cygnus 4.0 3.0 3435 pentium(tm)-mca
-
- Author=''
- Date='$Date'
- Header=''
- Id='$Id'
- Locker=''
- Log='$Log'
- Mcc='Mcc'
- RCSfile='$RCSfile'
- Revision='$Revision'
- Source=''
- State=''
- afs='false'
- alignbytes='4'
- aphostname=''
- ar='ar'
- archlib='/usr/gnu/lib/perl5/sys3k/5.004'
- archlibexp='/usr/gnu/lib/perl5/sys3k/5.004'
- archname='sys3k'
- archobjs=''
- awk='awk'
- baserev='5.0'
- bash=''
- bin='/usr/gnu/bin'
- bincompat3='n'
- binexp='/usr/gnu/bin'
- bison=''
- byacc='byacc'
- byteorder='1234'
- c='\c'
- castflags='0'
- cat='cat'
- cc='/bin/cc'
- cccdlflags='-Kpic'
- ccdlflags=' '
- ccflags='-I/usr/include -I/usr/ucbinclude -I/usr/gnu/include'
- cf_by='wescott'
- cf_email='mike.wescott@columbiasc.ncr.com'
- cf_time='Mon Dec 22 20:31:07 EST 1997'
- chgrp=''
- chmod=''
- chown=''
- clocktype='clock_t'
- comm='comm'
- compress=''
- contains='grep'
- cp='cp'
- cpio=''
- cpp='cpp'
- cpp_stuff='42'
- cppflags='-I/usr/include -I/usr/ucbinclude -I/usr/gnu/include'
- cpplast=''
- cppminus=''
- cpprun='/usr/lib/cpp'
- cppstdin='cppstdin'
- cryptlib=''
- csh='csh'
- d_Gconvert='gcvt((x),(n),(b))'
- d_access='define'
- d_alarm='define'
- d_archlib='define'
- d_attribut='undef'
- d_bcmp='define'
- d_bcopy='define'
- d_bincompat3='undef'
- d_bsd='undef'
- d_bsdgetpgrp='undef'
- d_bsdpgrp='undef'
- d_bsdsetpgrp='undef'
- d_bzero='define'
- d_casti32='define'
- d_castneg='define'
- d_charvspr='undef'
- d_chown='define'
- d_chroot='define'
- d_chsize='undef'
- d_closedir='define'
- d_const='define'
- d_crypt='define'
- d_csh='define'
- d_cuserid='define'
- d_dbl_dig='define'
- d_difftime='define'
- d_dirnamlen='undef'
- d_dlerror='define'
- d_dlopen='define'
- d_dlsymun='undef'
- d_dosuid='undef'
- d_dup2='define'
- d_eofnblk='define'
- d_eunice='undef'
- d_fchmod='define'
- d_fchown='define'
- d_fcntl='define'
- d_fd_macros='define'
- d_fd_set='define'
- d_fds_bits='define'
- d_fgetpos='define'
- d_flexfnam='define'
- d_flock='undef'
- d_fork='define'
- d_fpathconf='define'
- d_fsetpos='define'
- d_ftime='undef'
- d_getgrps='define'
- d_setgrps='define'
- d_gethent='define'
- d_gethname='undef'
- d_getlogin='define'
- d_getpgid='define'
- d_getpgrp2='undef'
- d_getpgrp='define'
- d_getppid='define'
- d_getprior='undef'
- d_gettimeod='define'
- d_gnulibc='undef'
- d_htonl='define'
- d_index='undef'
- d_inetaton='define'
- d_isascii='define'
- d_killpg='define'
- d_link='define'
- d_locconv='define'
- d_lockf='define'
- d_lstat='define'
- d_mblen='define'
- d_mbstowcs='define'
- d_mbtowc='define'
- d_memcmp='define'
- d_memcpy='define'
- d_memmove='define'
- d_memset='define'
- d_mkdir='define'
- d_mkfifo='define'
- d_mktime='define'
- d_msg='define'
- d_msgctl='define'
- d_msgget='define'
- d_msgrcv='define'
- d_msgsnd='define'
- d_mymalloc='define'
- d_nice='define'
- d_oldarchlib='undef'
- d_oldsock='undef'
- d_open3='define'
- d_pathconf='define'
- d_pause='define'
- d_phostname='undef'
- d_pipe='define'
- d_poll='define'
- d_portable='define'
- d_pwage='define'
- d_pwchange='undef'
- d_pwclass='undef'
- d_pwcomment='define'
- d_pwexpire='undef'
- d_pwquota='undef'
- d_readdir='define'
- d_readlink='define'
- d_rename='define'
- d_rewinddir='define'
- d_rmdir='define'
- d_safebcpy='define'
- d_safemcpy='undef'
- d_sanemcmp='define'
- d_seekdir='define'
- d_select='define'
- d_sem='define'
- d_semctl='define'
- d_semget='define'
- d_semop='define'
- d_setegid='define'
- d_seteuid='define'
- d_setlinebuf='undef'
- d_setlocale='define'
- d_setpgid='define'
- d_setpgrp2='undef'
- d_setpgrp='define'
- d_setprior='undef'
- d_setregid='define'
- d_setresgid='undef'
- d_setresuid='undef'
- d_setreuid='define'
- d_setrgid='undef'
- d_setruid='undef'
- d_setsid='define'
- d_sfio='undef'
- d_shm='define'
- d_shmat='define'
- d_shmatprototype='define'
- d_shmctl='define'
- d_shmdt='define'
- d_shmget='define'
- d_sigaction='define'
- d_sigsetjmp='define'
- d_socket='define'
- d_sockpair='define'
- d_statblks='define'
- d_stdio_cnt_lval='undef'
- d_stdio_ptr_lval='undef'
- d_stdiobase='undef'
- d_stdstdio='undef'
- d_strchr='define'
- d_strcoll='define'
- d_strctcpy='define'
- d_strerrm='strerror(e)'
- d_strerror='define'
- d_strtod='define'
- d_strtol='define'
- d_strtoul='define'
- d_strxfrm='define'
- d_suidsafe='define'
- d_symlink='define'
- d_syscall='define'
- d_sysconf='define'
- d_sysernlst=''
- d_syserrlst='define'
- d_system='define'
- d_tcgetpgrp='define'
- d_tcsetpgrp='define'
- d_telldir='define'
- d_time='define'
- d_times='define'
- d_truncate='define'
- d_tzname='define'
- d_umask='define'
- d_uname='define'
- d_vfork='undef'
- d_void_closedir='undef'
- d_voidsig='define'
- d_voidtty=''
- d_volatile='define'
- d_vprintf='define'
- d_wait4='undef'
- d_waitpid='define'
- d_wcstombs='define'
- d_wctomb='define'
- d_xenix='undef'
- date='date'
- db_hashtype='int'
- db_prefixtype='int'
- defvoidused='15'
- direntrytype='struct dirent'
- dlext='so'
- dlsrc='dl_dlopen.xs'
- dynamic_ext='DB_File Fcntl GDBM_File IO NDBM_File ODBM_File Opcode POSIX SDBM_File Socket'
- eagain='EAGAIN'
- echo='echo'
- egrep='egrep'
- emacs=''
- eunicefix=':'
- exe_ext=''
- expr='expr'
- extensions='DB_File Fcntl GDBM_File IO NDBM_File ODBM_File Opcode POSIX SDBM_File Socket'
- find='find'
- firstmakefile='makefile'
- flex=''
- fpostype='fpos_t'
- freetype='void'
- full_csh='/usr/bin/csh'
- full_sed='/usr/bin/sed'
- gcc=''
- gccversion=''
- gidtype='gid_t'
- glibpth='/usr/shlib /shlib /usr/lib/pa1.1 /usr/lib/large /lib /usr/lib /usr/lib/386 /lib/386 /lib/large /usr/lib/small /lib/small /usr/ccs/lib /usr/ucblib /usr/local/lib '
- grep='grep'
- groupcat=''
- groupstype='gid_t'
- gzip='gzip'
- h_fcntl='true'
- h_sysfile='false'
- hint='recommended'
- hostcat=''
- huge=''
- i_bsdioctl=''
- i_db='define'
- i_dbm='define'
- i_dirent='define'
- i_dld='undef'
- i_dlfcn='define'
- i_fcntl='define'
- i_float='define'
- i_gdbm='define'
- i_grp='define'
- i_limits='define'
- i_locale='define'
- i_malloc='define'
- i_math='define'
- i_memory='undef'
- i_ndbm='define'
- i_neterrno='undef'
- i_niin='define'
- i_pwd='define'
- i_rpcsvcdbm='undef'
- i_sfio='undef'
- i_sgtty='undef'
- i_stdarg='define'
- i_stddef='define'
- i_stdlib='define'
- i_string='define'
- i_sysdir='define'
- i_sysfile='undef'
- i_sysfilio='define'
- i_sysin='undef'
- i_sysioctl='define'
- i_sysndir='undef'
- i_sysparam='define'
- i_sysresrc='define'
- i_sysselct='define'
- i_syssockio=''
- i_sysstat='define'
- i_systime='define'
- i_systimek='undef'
- i_systimes='define'
- i_systypes='define'
- i_sysun='define'
- i_syswait='define'
- i_termio='undef'
- i_termios='define'
- i_time='undef'
- i_unistd='define'
- i_utime='define'
- i_values='define'
- i_varargs='undef'
- i_varhdr='stdarg.h'
- i_vfork='undef'
- incpath=''
- inews=''
- installarchlib='/usr/gnu/lib/perl5/sys3k/5.004'
- installbin='/usr/gnu/bin'
- installman1dir='/usr/gnu/man/man1'
- installman3dir='/usr/gnu/man/man3'
- installprivlib='/usr/gnu/lib/perl5'
- installscript='/usr/gnu/bin'
- installsitearch='/usr/gnu/lib/perl5/site_perl/sys3k'
- installsitelib='/usr/gnu/lib/perl5/site_perl'
- intsize='4'
- known_extensions='DB_File Fcntl GDBM_File IO NDBM_File ODBM_File Opcode POSIX SDBM_File Socket'
- ksh=''
- large=''
- ld='/bin/cc'
- lddlflags='-G -L/usr/ccs/lib -L/usr/ucblib -L/usr/local/lib -L/usr/gnu/lib'
- ldflags='-L/usr/ccs/lib -L/usr/ucblib -L/usr/local/lib -L/usr/gnu/lib'
- less='less'
- lib_ext='.a'
- libc='/usr/ccs/lib/libc.so'
- libperl='libperl.so'
- libpth='/usr/local/lib /usr/gnu/lib /shlib /lib /usr/lib /usr/ccs/lib /usr/ucblib'
- libs='-Bexport -lsocket -lnsl -lgdbm -ldbm -ldl -lld -lm -lc -Bstatic -lcrypt -u strcasecmp -u strncasecmp -lucb -lx -Bdynamic -lc'
- libswanted=' sfio net socket inet nsl nm ndbm gdbm dbm db dl dld ld sun m c cposix posix ndir dir crypt ucb bsd BSD PW x '
- line='line'
- lint=''
- lkflags=''
- ln='ln'
- lns='/usr/bin/ln -s'
- locincpth='/usr/local/include /opt/local/include /usr/gnu/include /opt/gnu/include /usr/GNU/include /opt/GNU/include'
- loclibpth='/usr/local/lib /opt/local/lib /usr/gnu/lib /opt/gnu/lib /usr/GNU/lib /opt/GNU/lib'
- longsize='4'
- lp=''
- lpr=''
- ls='ls'
- lseektype='off_t'
- mail=''
- mailx=''
- make='/usr/bin/make'
- make_set_make='#'
- mallocobj='malloc.o'
- mallocsrc='malloc.c'
- malloctype='void *'
- man1dir='/usr/gnu/man/man1'
- man1direxp='/usr/gnu/man/man1'
- man1ext='1'
- man3dir='/usr/gnu/man/man3'
- man3direxp='/usr/gnu/man/man3'
- man3ext='3'
- medium=''
- mips=''
- mips_type=''
- mkdir='mkdir'
- models='none'
- modetype='mode_t'
- more='more'
- mv=''
- myarchname='3435-svr4'
- mydomain='.columbiasc.ncr.com'
- myhostname='cygnus'
- myuname='unix_sv cygnus 4.0 3.0 3435 pentium(tm)-mca '
- n=''
- nm_opt='-p'
- nm_so_opt=''
- nroff='nroff'
- o_nonblock='O_NONBLOCK'
- obj_ext='.o'
- oldarchlib=''
- oldarchlibexp=''
- optimize='-O -Xa'
- orderlib='false'
- osname='svr4'
- osvers=''
- package='perl5'
- pager='/usr/gnu/bin/less'
- passcat=''
- patchlevel='4'
- path_sep=':'
- perl='perl'
- perladmin='mike.wescott@columbiasc.ncr.com'
- perlpath='/usr/gnu/bin/perl'
- pg='pg'
- phostname='hostname'
- plibpth=''
- pmake=''
- pr=''
- prefix='/usr/gnu'
- prefixexp='/usr/gnu'
- privlib='/usr/gnu/lib/perl5'
- privlibexp='/usr/gnu/lib/perl5'
- prototype='define'
- randbits='15'
- ranlib=':'
- rd_nodata='-1'
- rm='rm'
- rmail=''
- runnm='true'
- scriptdir='/usr/gnu/bin'
- scriptdirexp='/usr/gnu/bin'
- sed='sed'
- selecttype='fd_set *'
- sendmail='sendmail'
- sh='/bin/sh'
- shar=''
- sharpbang='#!'
- shmattype='void *'
- shortsize='2'
- shrpenv='env LD_RUN_PATH=/usr/gnu/lib/perl5/sys3k/5.004/CORE'
- shsharp='true'
- sig_name='ZERO HUP INT QUIT ILL TRAP ABRT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM USR1 USR2 CHLD PWR WINCH URG IO STOP TSTP CONT TTIN TTOU VTALRM PROF XCPU XFSZ IOT CLD POLL '
- sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 6 18 22 '
- signal_t='void'
- sitearch='/usr/gnu/lib/perl5/site_perl/sys3k'
- sitearchexp='/usr/gnu/lib/perl5/site_perl/sys3k'
- sitelib='/usr/gnu/lib/perl5/site_perl'
- sitelibexp='/usr/gnu/lib/perl5/site_perl'
- sizetype='size_t'
- sleep=''
- smail=''
- small=''
- so='so'
- sockethdr=''
- socketlib=''
- sort='sort'
- spackage='Perl5'
- spitshell='cat'
- split=''
- ssizetype='ssize_t'
- startperl='#!/usr/bin/perl'
- startsh='#!/bin/sh'
- static_ext=' '
- stdchar='unsigned char'
- stdio_base='((fp)->_base)'
- stdio_bufsiz='((fp)->_cnt + (fp)->_ptr - (fp)->_base)'
- stdio_cnt='((fp)->_cnt)'
- stdio_ptr='((fp)->_ptr)'
- strings='/usr/include/string.h'
- submit=''
- subversion='4'
- sysman='/usr/share/man/man1'
- tail=''
- tar=''
- tbl=''
- test='test'
- timeincl='/usr/include/sys/time.h '
- timetype='time_t'
- touch='touch'
- tr='tr'
- troff=''
- uidtype='uid_t'
- uname='uname'
- uniq='uniq'
- usedl='define'
- usemymalloc='y'
- usenm='true'
- useopcode='true'
- useperlio='undef'
- useposix='true'
- usesfio='false'
- useshrplib='true'
- usevfork='false'
- usrinc='/usr/include'
- uuname=''
- vi=''
- voidflags='15'
- xlibpth='/usr/lib/386 /lib/386'
- zcat=''
- zip='zip'
- PATCHLEVEL=4
- SUBVERSION=4
- CONFIG=true
- # Variables propagated from previous config.sh file.
- uw_isuw=''
- uw_ver='3.0'
--- 0 ----
--
-Mike Wescott
mike.wescott@ColumbiaSC.NCR.COM
------------------------------
Date: Sat, 27 Dec 1997 04:39:21 -0500
From: Joseph Yen <jyen@us.oracle.com>
Subject: Perl app calling Java classes
Message-Id: <34A4CCC9.11B9B1FA@us.oracle.com>
Hello,
I am trying to integrate a set of java api calls into a Perl
application. The Perl code needs to be able to call the java classes
and collect the returned data.
I am looking over the documentation for JPL and it doesn't seem suited
for this. Does anyone have experience with this type of integration or
pointers to info?
-jY
------------------------------
Date: Sat, 27 Dec 1997 18:40:45 GMT
From: Gilles.Maire@ungi.com (Gilles Maire)
Subject: Re: Perl doc in .HLP format?
Message-Id: <34a54906.34470868@news.imaginet.fr>
On 27 Dec 1997 11:58:02 GMT, "Patrick Philippot"
<patrick.philippot@hol.fr> wrote:
>Is there any .HLP version of the perl documentation available?
>
Non mis ` part la doc de Perl . Pour celle de Perl 5 elle est en HTML
et il existe des outils en perl qui tranforment du HTML vers du HLP
Amicalement
Gilles.Maire@ungi.com
|||||||||||||||||||||||||||||| - UNGI - ||||||||||||||||||||||||||||||
http://www.ungi.com
------------------------------
Date: Sat, 27 Dec 1997 19:06:11 GMT
From: dgrove@ntslink.net (David Grove)
Subject: Re: Perl doc in .HLP format?
Message-Id: <34a55125.5050762@news.ntslink.net>
I have seen such a beastie before, so keep looking. I just don't know
where to find it. I *DO* know that it exists. I believe it was the
core docs only tho, like perl, perlpod, perltoot, perlop, etc.
>Is there any .HLP version of the perl documentation available?
>
>Thanks in advance.
>
>--
>
>Patrick Philippot
>
>-pp (MainSoft sarl)
>------------------------------------
>
>patrick.philippot@hol.fr
>Compuserve: mainsoft / mainsoft@compuserve.com
>http://ourworld.compuserve.com/homepages/mainsoft
>tel/fax: +33 (0)1 69 40 94 85
>
------------------------------
Date: Sun, 28 Dec 1997 03:03:51 GMT
From: mgjv@comdyn.com.au (Martien Verbruggen)
Subject: Re: PERL Memory Problems
Message-Id: <684c42$2f6$1@s3000-01.magna.com.au>
In article <34A0976E.6629@sportscover.com>, scover@sportscover.com wrote:
>When this script
>runs it chews up Megs of memory within seconds
>
>The type of machine is a Intel P120 24Mg RAM running
>Red Hat Linux 4.2
What's the version of perl you're running? That's sort of more important than
the version of your OS. If it's not perl 5.004_04, upgrade. There were memory
problems with 5.003, that have been fixed in later releases.
Martien
Martien Verbruggen |
Webmaster www.tradingpost.com.au | Very funny Scotty, now beam down my
Commercial Dynamics Pty. Ltd. | clothes.
NSW, Australia |
------------------------------
Date: 27 Dec 1997 22:56:13 GMT
From: "Alicia Carla Longstreet" <carla@ici.net>
Subject: Re: Which language pays most 17457 -- C++ vs. Java?
Message-Id: <01bd131a$f70c5560$0128b4cf@carla.ici.net>
Kurt Watzka wrote:
: John Porter wrote:
: >Lawrence Kirby wrote:
: >> Your opinion is wrong because it contradicts fact.
: >Ooh, "You have an opinion, by *I* know the *truth*!"
: No, he just knows the definition of the C programming language. As
: far as discussions about the C programming language are concerned
: however, this is as much truth as there can be.
: >> The standard library is an integral part of the
: >> language *definition*.
: >Well, if this is your definition of "language definition".
: Well, if you can come up with a better meaning for "language definition
: for C" than the specific international standard that defines the C
: programming language, let us hear about it.
: >I think the more traditional definition is the syntax and grammar
: >specifications, along with indications as to the semantics. Thus,
: >'if', 'switch', braces and commas are part of the C language definition,
: >but 'main' and '#include' are not.
: Unfortunately, the language definition (i.e. the international standard
: that specifies the form and establishes the interpretation of programs
: written in the C programming language, which i will call "language
: definition" as long as you don't come up with a more meaningful
explanatory
: term for "language definition") makes "#include" part of the language,
: as well as main() if we are talking about a hosted environment.
I have seen the basis for the opinion of several members of this forum.
When the various standard headers are #included the identifiers used in
that header are reserved. I have yet to see where the identifiers used in
the standard library become unusable when the appropriate headers are not
used.
On the other hand, I would like to quote from
The C Programming Language Second Edition
by Brian W. Kernigan and Dennis M. Ritchie
Appendix B: page 241
" This appendix is a summary of the library defined by the ANSI standard.
The standard library is not part of the C language proper, but an
environment that supports standard C will provide the function declarations
and type and macro definitions of this library."
Obviously, in 1988, the inventors of the C Programming language felt that,
although the library was an integral part of a conforming implementation,
it was nevertheless not actually part of the language.
Whether or not they still feel this way is subject to speculation (unless
they wish to publicly state their current opinion). My interpretation of
the language in the standard conforms to this idea.
--
****************************************************************
Where are Preparations A through G?
Are there seeing eye humans for blind dogs?
If knees were backwards, what would chairs look like?
When your pet bird sees you reading the newspaper,
does he wonder why you're just sitting there, staring at carpeting?
What happened to the first 6 "ups"?
==========================================================
Alicia Carla Longstreet carla@ici.net
Web Page http://www.ici.net/cust_pages/carla/index.html
==========================================================
READ THE FAQ for more information:
C-FAQ ftp sites: ftp://ftp.eskimo.com or ftp://rtfm.mit.edu
Hypertext C-FAQ: http://www.eskimo.com/~scs/C-faq/top.html
------------------------------
Date: Sat, 27 Dec 1997 20:44:50 -0500
From: Joshua Waxman <jwaxman@ymail.yu.edu>
Subject: Re: Which language pays most? Smalltalk, not C++ nor Java.
Message-Id: <Pine.A41.3.95.971227204141.27460A-100000@acis.mc.yu.edu>
On Sat, 27 Dec 1997, Guillermo Schwarz wrote:
> Kaz Kylheku wrote:
> > Although 'memcpy' is not a reserved keyword by any means,
> > it is a reserved 'external name'.
> It is the first time I see reserved external.
> > A strictly conforming program may not define any external
> > name that begins with 'mem' followed by any combination of letters,
> > digits or underscores.
> Ok. Define void memfoo() { } and see if it compiles.
> It does.
> > Define memcpy, if you write such a static function, you must not
> > include the <string.h> header in
> > the same translation unit, else undefined behavior results.
> Wrong. The compiler points out two different implementations.
> The executable can't be generated.
A few weeks ago, someone learning from Stroustrup's book asked a question
about versions of strlen and strcat and strcpy that he had written. He
included string.h, and a buch of people pointed out that he shouldn't
have, and that they were surprisd that the code compiled. I took that code
and put it into Borland C++ 5.02, and it indeed compikled. The executable
was generated.
Josh Waxman
> > There is no such thing as ``overriding'' in C. Each external name must
> > have exactly one definition if it is used anywhere in the program.
> That's true. C is not object oriented. C++ is just an Smalltalk
> wannabe.
>
>
------------------------------
Date: 8 Mar 97 21:33:47 GMT (Last modified)
From: Perl-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 8 Mar 97)
Message-Id: <null>
Administrivia:
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 1541
**************************************
