[15675] in Perl-Users-Digest
Perl-Users Digest, Issue: 3088 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu May 18 14:13:58 2000
Date: Thu, 18 May 2000 11:05:21 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Message-Id: <958673121-v9-i3088@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Thu, 18 May 2000 Volume: 9 Number: 3088
Today's topics:
"Breakthrough" Perl compiler? <jboesNOjbSPAM@qtm.net.invalid>
Re: $0 doesn't give full path (Ilya Zakharevich)
Re: $0 doesn't give full path (Ilya Zakharevich)
Re: [ CGI ] Can you know how long someone stayed connec <charles.henry@engineer2k.com>
Re: [ CGI ] Can you know how long someone stayed connec <rootbeer@redcat.com>
Re: [OT] Annoying -w messages from standard distributed (M.J.T. Guy)
Re: accessing VSS from unix <haakon.alstadheim@oslo.mail.telia.com>
Assign file handle to scalar? <mc@backwoods.org>
Re: Bug or Feature: Can't dereference array ref inside <aqumsieh@hyperchip.com>
compiling ImageMagick/PerlMagick 5.1.1 adam_streeter@my-deja.com
Re: compiling ImageMagick/PerlMagick 5.1.1 (Elaine -HFB- Ashton)
converting packed and zoned decimals using perl brianbear@my-deja.com
Re: converting packed and zoned decimals using perl <flavell@mail.cern.ch>
count the number of lines <cure@texas.net>
Re: count the number of lines <blah@nospam.com>
Re: count the number of lines <aqumsieh@hyperchip.com>
Re: count the number of lines (M.J.T. Guy)
Re: count the number of lines <aqumsieh@hyperchip.com>
Re: count the number of lines <jcook@strobedata.com>
Re: Delay in Perl <mhc@Eng.Sun.COM>
Re: Delay in Perl (Bart Lateur)
Re: extracting a list from multiple regex matches <aqumsieh@hyperchip.com>
Re: extracting a list from multiple regex matches <aqumsieh@hyperchip.com>
Re: Getopt::Std 1 == 0 ??? gregsptl1962@my-deja.com
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Thu, 18 May 2000 10:48:35 -0700
From: Mur <jboesNOjbSPAM@qtm.net.invalid>
Subject: "Breakthrough" Perl compiler?
Message-Id: <3a4d6d29.f1275a5e@usw-ex0101-006.remarq.com>
No, I'm not a shill for the company. Just stumbled upon this
link:
http://biz.yahoo.com/prnews/000503/wa_cyberwi_1.html
and would like to know what if any experience the audience here
has with this product.
Jeff Boes//ICQ=3394914//Yahoo!=jeffboes//AOL IM=jboes
//home=jboes@qtm.net//professional=mur@consultant.com
* Sent from RemarQ http://www.remarq.com The Internet's Discussion Network *
The fastest and easiest way to search and participate in Usenet - Free!
------------------------------
Date: 18 May 2000 17:08:16 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: $0 doesn't give full path
Message-Id: <8g1820$9r4$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Villy Kruse
<vek@pharmnl.ohout.pharmapartners.nl>],
who wrote in article <slrn8i7nqe.3sj.vek@pharmnl.ohout.pharmapartners.nl>:
> The content of $0 would be inherited from the argv[0] variable, which
> again gets its contents from the exec() system call which launched
> the program.
You are mixing $0 with $^X.
Hope this helps,
Ilya
------------------------------
Date: 18 May 2000 17:11:29 GMT
From: ilya@math.ohio-state.edu (Ilya Zakharevich)
Subject: Re: $0 doesn't give full path
Message-Id: <8g1881$9sq$1@charm.magnus.acs.ohio-state.edu>
[A complimentary Cc of this posting was sent to Villy Kruse
<vek@pharmnl.ohout.pharmapartners.nl>],
who wrote in article <slrn8i7nqe.3sj.vek@pharmnl.ohout.pharmapartners.nl>:
> The content of $0 would be inherited from the argv[0] variable, which
> again gets its contents from the exec() system call which launched
> the program.
Oups, read my previous reply as:
if started as
perl -w scriptname args
your description is applicable to 'perl' part (which is $^X), not
'scriptname' part.
Ilya
------------------------------
Date: Thu, 18 May 2000 17:27:53 +0100
From: "Charles Henry" <charles.henry@engineer2k.com>
Subject: Re: [ CGI ] Can you know how long someone stayed connected?
Message-Id: <8g12i8$i7p$1@reader1.fr.uu.net>
> Sorry, but there's really no such beast, since HTTP is a stateless
> protocol. You could approximate this process by either recording the
> entry time somewhere (db, file, whatever) or setting a client cookie
> with the entry time stamped, but there's no good way to tell when
> someone leaves unless they explicitly go through a "logout" procedure
> that you define. The closest you can come is knowing the time of their
> last request.
Oh well,
Thanks for the answer anyways ...
I really hoped such a module existed since my browser apparently knows when
I am connected and when I am not. Indeed it never prompts me to relogin once
I have successfully authenticated, until I close the browser ... But I guess
this is done internally by the browser ...
------------------------------
Date: Thu, 18 May 2000 10:26:03 -0700
From: Tom Phoenix <rootbeer@redcat.com>
Subject: Re: [ CGI ] Can you know how long someone stayed connected?
Message-Id: <Pine.GSO.4.10.10005181023440.25459-100000@user2.teleport.com>
On Thu, 18 May 2000, Charles Henry wrote:
> I really hoped such a module existed since my browser apparently knows
> when I am connected and when I am not. Indeed it never prompts me to
> relogin once I have successfully authenticated, until I close the
> browser ... But I guess this is done internally by the browser ...
Almost certainly, your browser is re-authenticating you with a remembered
username/password combination, and hiding that fact from you. Of course,
this would be better discussed in a forum about browsers, servers,
authentication, and maybe even CGI programming. Cheers!
--
Tom Phoenix Perl Training and Hacking Esperanto
Randal Schwartz Case: http://www.rahul.net/jeffrey/ovs/
------------------------------
Date: 18 May 2000 15:13:39 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: [OT] Annoying -w messages from standard distributed modules
Message-Id: <8g11b3$osv$1@pegasus.csx.cam.ac.uk>
In article <8fvd20$l78@netnews.hinet.net>,
John Lin <johnlin@chttl.com.tw> wrote:
>I just mailed 3 different perlbugs to perlbug@perl.com.
>The mail server thought I was SPAMming them, so all were rejected.
>
> ----- The following addresses had permanent fatal errors -----
><perlbug@perl.com>
>
> ----- Transcript of session follows -----
>... while talking to mail.perl.com.:
>>>> MAIL From:<johnlin@chttl.com.tw>
><<< 550 5.0.0 Your site is blacklisted as a spam haven.
>554 <perlbug@perl.com>... Service unavailable
>
>Blacklisted? Yes, they won't accept my mails anymore.
>It's sad to be blacklisted...
There's some problem with perlbug at present. I don't know what it is,
as it seems to accept my bug reports. But I do know Richard is
working on it.
I suggest you try again tomorrow.
Mike Guy
------------------------------
Date: 18 May 2000 10:23:25 -0300
From: Haakon Alstadheim <haakon.alstadheim@oslo.mail.telia.com>
Subject: Re: accessing VSS from unix
Message-Id: <m3g0rgq9f6.fsf@alstadhome.local>
Khan <dnkhan@my-deja.com> writes:
[snip]
> The question :
> Is it possible to check in/out project/files in VSS from Unix ?
>
> I have been reading about Win32::OLE , but pls correct me if I'm wrong,
> that module is only for the WINxx environment. If so, the next question
> would be, is there an "OLE" type API from the unix side that will let
> me get to VSS from , say Perl scripts on the unix box.
>
> Any suggestions/comments/alternatives welcome.
[snip]
I was in a similar situation some time ago.
The elements of my "solution":
a) The place I was working being predominantly an MS-shop, my
workstation was an NT-box.
b) I had nt-emacs with ange-ftp up and running.
c) I had perl for w32 installed.
(re. a: The other guys were using Samba, but I could'nt get the samba
shares to show up, so I went with what I had.)
There are command-line tools for w32 that come with VSS that lets you
check out files with whatever line-end convention you want. Look for
.exe files and run them with /? switch. They're also documented in the
windows help files.
The recipe:
a) Check out with unix line-ends, or convert to unix line-ends
in a separate step.
b) transfer the source (no line-end conversion) to the unix
box.
c) Work locally on the unix box or via samba/ange.
d) Compile in a telnet or ssh window if you're working
remotely.
e) Transfer back when you're done, and check in from the
w32-workstation.
I was taking over an old project where some source files were not
marked as text, so I created a perl script on the w32 side to scan
through the project directory and all subdirs doing :
perl -00 -pi -e "s/\cM\cJ/\cJ/g" <input-file>
Note that command-line scripts have to be quoted with " on w32.
(Not really so simplistic, it was quite a large
script, first checking if we were dealing wiht a text file using -T ,
then checking whether the file was in DOS format i.e. number of \cJs
in the file versus number of \cMs, then doing the conversion if I was
sure we had a DOS text file).
------------------------------
Date: Thu, 18 May 2000 13:47:06 -0400
From: MC <mc@backwoods.org>
Subject: Assign file handle to scalar?
Message-Id: <39242C9A.F23F26B7@backwoods.org>
I am creating an object module to act as a custom interface to a file. the
object would open the file when created and close the file when destroyed. How
can the object keep track of the file handle in the interrim? Can i assign it to
a scalar so that other methods can use it as long as the object (and file) are
open?
ie:
open FILE "myfile.ext";
$object->{handle} = FILE;
??????
MC
------------------------------
Date: Thu, 18 May 2000 16:52:41 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: Bug or Feature: Can't dereference array ref inside hash
Message-Id: <7ad7mjls11.fsf@Merlin.i-did-not-set--mail-host-address--so-shoot-me>
stevel@coastside.net (Steve Leibel) writes:
> If I have a hash reference, one of whose keys is an array ref, like this:
>
> $myhash = {
> arrayref => (),
> };
This is not an array ref. You want square brackets:
$myhash = {
arrayref = [],
};
Read perlref and perldsc for more info.
> In theory I should be able to dereference the arrayref using syntax such as
>
> @$myhash->{arrayref}
No because of precedence problems. The above is parsed as:
{@$myhash}->{arrayref}
while what you want is:
@{$myhash->{arrayref}}
Again, read perlref and perldsc before you go on.
--Ala
------------------------------
Date: Thu, 18 May 2000 15:14:05 GMT
From: adam_streeter@my-deja.com
Subject: compiling ImageMagick/PerlMagick 5.1.1
Message-Id: <8g11bd$933$1@nnrp1.deja.com>
I am running BSD/OS 3.0 and I am trying to compile ImageMagick with
PerlMagick 5.1.1 I follow the instructions in the INSTALL readme and
run the configure script and then run my make without any incident.
When I run the make install from the ImageMagick-5.1.1 directory
however, I get alot of undefined symbol errors. I have included the
output from the make install command in this posting.
I have tried running configure with the --without_perl option and making
ImageMagick; it works fine. However, I the reason I need this is for use
with Perl. I tried to make PerlMagick seperately by running perl
Makefile.PL, make, and then make install from the PerlMagick
sub-directory (as you are supposed to be able to do). This seems to
work, but then when I try to use Image::Magick in my perl programs, the
interpreter fails and says that Magick.o has undefined symbols.
Any help is appreciated very much.
Adam Streeter
***text of make install***
bash# make install
Making install in delegates
/bin/sh ../mkinstalldirs /usr/local/share/ImageMagick
/usr/bin/install -c -m 644 ./delegates.mgk
/usr/local/share/ImageMagick/delegates.mgk
Making install in magick
/bin/sh ../mkinstalldirs /usr/local/lib
/bin/sh ../libtool --mode=install /usr/bin/install -c libMagick.la
/usr/local/lib/libMagick.la
/usr/bin/install -c .libs/libMagick.lai /usr/local/lib/libMagick.la
/usr/bin/install -c .libs/libMagick.a /usr/local/lib/libMagick.a
ranlib /usr/local/lib/libMagick.a
chmod 644 /usr/local/lib/libMagick.a
----------------------------------------------------------------------
Libraries have been installed in:
/usr/local/lib
If you ever happen to want to link against installed libraries
in a given directory, LIBDIR, you must either use libtool, and
specify the full pathname of the library, or use `-LLIBDIR'
flag during linking and do at least one of the following:
See any operating system documentation about shared libraries for
more information, such as the ld(1) and ld.so(8) manual pages.
----------------------------------------------------------------------
/bin/sh ../mkinstalldirs /usr/local/bin
/usr/bin/install -c Magick-config /usr/local/bin/Magick-config
/bin/sh ../mkinstalldirs /usr/local/include/magick
/usr/bin/install -c -m 644 magick.h /usr/local/include/magick/magick.h
/usr/bin/install -c -m 644 api.h /usr/local/include/magick/api.h
/usr/bin/install -c -m 644 classify.h
/usr/local/include/magick/classify.h
/usr/bin/install -c -m 644 image.h /usr/local/include/magick/image.h
/usr/bin/install -c -m 644 quantize.h
/usr/local/include/magick/quantize.h
/usr/bin/install -c -m 644 gems.h /usr/local/include/magick/gems.h
/usr/bin/install -c -m 644 blob.h /usr/local/include/magick/blob.h
/usr/bin/install -c -m 644 compress.h
/usr/local/include/magick/compress.h
/usr/bin/install -c -m 644 utility.h
/usr/local/include/magick/utility.h
/usr/bin/install -c -m 644 cache.h /usr/local/include/magick/cache.h
/usr/bin/install -c -m 644 cache_io.h
/usr/local/include/magick/cache_io.h
/usr/bin/install -c -m 644 monitor.h
/usr/local/include/magick/monitor.h
/usr/bin/install -c -m 644 error.h /usr/local/include/magick/error.h
/usr/bin/install -c -m 644 memory.h /usr/local/include/magick/memory.h
/usr/bin/install -c -m 644 delegates.h
/usr/local/include/magick/delegates.h
/usr/bin/install -c -m 644 timer.h /usr/local/include/magick/timer.h
/usr/bin/install -c -m 644 version.h
/usr/local/include/magick/version.h
/usr/bin/install -c -m 644 xwindows.h
/usr/local/include/magick/xwindows.h
/usr/bin/install -c -m 644 config.h /usr/local/include/magick/config.h
Making install in tests
/bin/sh ./mkinstalldirs /usr/local/bin
/bin/sh ./libtool --mode=install /usr/bin/install -c combine
/usr/local/bin/combine
/usr/bin/install -c combine /usr/local/bin/combine
/bin/sh ./libtool --mode=install /usr/bin/install -c convert
/usr/local/bin/convert
/usr/bin/install -c convert /usr/local/bin/convert
/bin/sh ./libtool --mode=install /usr/bin/install -c identify
/usr/local/bin/identify
/usr/bin/install -c identify /usr/local/bin/identify
/bin/sh ./libtool --mode=install /usr/bin/install -c mogrify
/usr/local/bin/mogrify
/usr/bin/install -c mogrify /usr/local/bin/mogrify
/bin/sh ./libtool --mode=install /usr/bin/install -c montage
/usr/local/bin/montage
/usr/bin/install -c montage /usr/local/bin/montage
/bin/sh ./libtool --mode=install /usr/bin/install -c animate
/usr/local/bin/animate
/usr/bin/install -c animate /usr/local/bin/animate
/bin/sh ./libtool --mode=install /usr/bin/install -c display
/usr/local/bin/display
/usr/bin/install -c display /usr/local/bin/display
/bin/sh ./libtool --mode=install /usr/bin/install -c import
/usr/local/bin/import
/usr/bin/install -c import /usr/local/bin/import
( cd PerlMagick && make CC='gcc' PerlMagick )
make -f Makefile.aperl PerlMagick
shlicc2 -L/usr/X11/lib -L/usr/local/lib -o PerlMagick -O2 ./perlmain.o
blib/arch/auto/Image/Magick/Magick.a
/usr/local/lib/perl5/5.6.0/i386-bsdos/auto/DynaLoader/DynaLoader.a
/usr/local/lib/perl5/5.6.0/i386-bsdos/CORE/libperl.a `cat
blib/arch/auto/Image/Magick/extralibs.all` -lrpc -lcurses -ltermcap
-lXpm -lXaw -lXmu -lXt -lSM -lICE -lXext -lX11 -ldl -lm -lc
Magick.o: Undefined symbol _CloneImageInfo referenced from text segment
Magick.o: Undefined symbol _SetClientName referenced from text segment
Magick.o: Undefined symbol _CloneImageInfo referenced from text segment
Magick.o: Undefined symbol _CloneQuantizeInfo referenced from text
segment
Magick.o: Undefined symbol _DestroyImageInfo referenced from text
segment
Magick.o: Undefined symbol _DestroyQuantizeInfo referenced from text
segment
Magick.o: Undefined symbol _FormatString referenced from text segment
Magick.o: Undefined symbol _MagickError referenced from text segment
Magick.o: Undefined symbol _FormatString referenced from text segment
Magick.o: Undefined symbol _MagickWarning referenced from text segment
Magick.o: Undefined symbol _QueryColorDatabase referenced from text
segment
Magick.o: Undefined symbol _QueryColorDatabase referenced from text
segment
Magick.o: Undefined symbol _SetCacheThreshold referenced from text
segment
Magick.o: Undefined symbol _QueryColorDatabase referenced from text
segment
Magick.o: Undefined symbol _CloneString referenced from text segment
Magick.o: Undefined symbol _CloneString referenced from text segment
Magick.o: Undefined symbol _CloneString referenced from text segment
Magick.o: Undefined symbol _CloneString referenced from text segment
Magick.o: Undefined symbol _FormatString referenced from text segment
Magick.o: Undefined symbol _QueryColorDatabase referenced from text
segment
Magick.o: Undefined symbol _CloneString referenced from text segment
Magick.o: Undefined symbol _DestroyPostscriptGeometry referenced from
text segment
Magick.o: Undefined symbol _GetPixelCache referenced from text segment
Magick.o: Undefined symbol _QueryColorDatabase referenced from text
segment
Magick.o: Undefined symbol _SyncPixelCache referenced from text segment
Magick.o: Undefined symbol _CloneString referenced from text segment
Magick.o: Undefined symbol _MagickWarning referenced from text segment
Magick.o: Undefined symbol _FormatString referenced from text segment
Magick.o: Undefined symbol _MagickWarning referenced from text segment
Magick.o: Undefined symbol _AnimateImages referenced from text segment
Magick.o: Undefined symbol _MagickWarning referenced from text segment
Magick.o: Undefined symbol _MagickWarning referenced from text segment
Magick.o: Undefined symbol _MagickWarning referenced from text segment
Magick.o: Undefined symbol _AppendImages referenced from text segment
Magick.o: Undefined symbol _MagickWarning referenced from text segment
Magick.o: Undefined symbol _AverageImages referenced from text segment
Magick.o: Undefined symbol _FormatString referenced from text segment
Magick.o: Undefined symbol _MagickWarning referenced from text segment
Magick.o: Undefined symbol _BlobToImage referenced from text segment
Magick.o: Undefined symbol _MagickWarning referenced from text segment
Magick.o: Undefined symbol _CloneImage referenced from text segment
Magick.o: Undefined symbol _FormatString referenced from text segment
Magick.o: More undefined symbol _MagickWarning refs follow
Magick.o: Undefined symbol _DisplayImages referenced from text segment
Magick.o: Undefined symbol _GetNumberColors referenced from text segment
Magick.o: Undefined symbol _GetMagickInfo referenced from text segment
Magick.o: Undefined symbol _IsMonochromeImage referenced from text
segment
Magick.o: Undefined symbol _QueryColorName referenced from text segment
Magick.o: Undefined symbol _FormatString referenced from text segment
Magick.o: Undefined symbol _GetPixelCache referenced from text segment
Magick.o: Undefined symbol _FormatString referenced from text segment
Magick.o: Undefined symbol _QueryColorName referenced from text segment
Magick.o: Undefined symbol _IsTainted referenced from text segment
Magick.o: Undefined symbol _GetImageType referenced from text segment
Magick.o: Undefined symbol _FormatString referenced from text segment
Magick.o: Undefined symbol _ImageToBlob referenced from text segment
Magick.o: Undefined symbol _FreeMemory referenced from text segment
Magick.o: Undefined symbol _ParseGeometry referenced from text segment
Magick.o: More undefined symbol _FormatString refs follow
Magick.o: Undefined symbol _AddNoiseImage referenced from text segment
Magick.o: Undefined symbol _ColorizeImage referenced from text segment
Magick.o: Undefined symbol _ParseGeometry referenced from text segment
Magick.o: Undefined symbol _QueryColorDatabase referenced from text
segment
Magick.o: Undefined symbol _ParseGeometry referenced from text segment
Magick.o: Undefined symbol _ParseGeometry referenced from text segment
Magick.o: Undefined symbol _ParseGeometry referenced from text segment
Magick.o: Undefined symbol _QueryColorDatabase referenced from text
segment
Magick.o: Undefined symbol _MedianFilterImage referenced from text
segment
Magick.o: Undefined symbol _ReduceNoiseImage referenced from text
segment
Magick.o: Undefined symbol _ParseGeometry referenced from text segment
Magick.o: Undefined symbol _ShadeImage referenced from text segment
Magick.o: Undefined symbol _CloneString referenced from text segment
Magick.o: Undefined symbol _CloneString referenced from text segment
Magick.o: Undefined symbol _CloneString referenced from text segment
Magick.o: More undefined symbol _CloneString refs follow
Magick.o: Undefined symbol _CloneAnnotateInfo referenced from text
segment
Magick.o: Undefined symbol _ParseGeometry referenced from text segment
Magick.o: Undefined symbol _QueryColorDatabase referenced from text
segment
Magick.o: Undefined symbol _CloneAnnotateInfo referenced from text
segment
Magick.o: Undefined symbol _GetPixelCache referenced from text segment
Magick.o: Undefined symbol _QueryColorDatabase referenced from text
segment
Magick.o: Undefined symbol _CloneAnnotateInfo referenced from text
segment
Magick.o: Undefined symbol _MapImages referenced from text segment
Magick.o: Undefined symbol _ParseGeometry referenced from text segment
Magick.o: More undefined symbol _QueryColorDatabase refs follow
Magick.o: Undefined symbol _MatteImage referenced from text segment
Magick.o: Undefined symbol _GetPixelCache referenced from text segment
Magick.o: Undefined symbol _GetQuantizeInfo referenced from text segment
Magick.o: Undefined symbol _ParseGeometry referenced from text segment
Magick.o: Undefined symbol _ThresholdImage referenced from text segment
Magick.o: Undefined symbol _WaveImage referenced from text segment
Magick.o: Undefined symbol _LayerImage referenced from text segment
Magick.o: Undefined symbol _SteganoImage referenced from text segment
Magick.o: Undefined symbol _CoalesceImages referenced from text segment
Magick.o: Undefined symbol _DeconstructImages referenced from text
segment
Magick.o: Undefined symbol _DestroyAnnotateInfo referenced from text
segment
Magick.o: Undefined symbol _GetMontageInfo referenced from text segment
Magick.o: Undefined symbol _MontageImages referenced from text segment
Magick.o: Undefined symbol _DestroyMontageInfo referenced from text
segment
Magick.o: Undefined symbol _MorphImages referenced from text segment
Magick.o: Undefined symbol _MosaicImages referenced from text segment
Magick.o: Undefined symbol _PingImage referenced from text segment
decode.o: Undefined symbol _OpenMPEG referenced from text segment
decode.o: Undefined symbol _GetMPEGFrame referenced from text segment
decode.o: Undefined symbol _GetMPEGFrame referenced from text segment
decode.o: Undefined symbol _GetMPEGFrame referenced from text segment
*** Error code 1
Stop.
*** Error code 1
Stop.
*** Error code 1
Stop.
*** Error code 1
Stop.
*** Error code 1
Stop.
bash#
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 18 May 2000 15:47:01 GMT
From: elaine@chaos.wustl.edu (Elaine -HFB- Ashton)
Subject: Re: compiling ImageMagick/PerlMagick 5.1.1
Message-Id: <slrn8i840h.13o.elaine@chaos.wustl.edu>
In article <8g11bd$933$1@nnrp1.deja.com>, adam_streeter@my-deja.com wrote:
>I am running BSD/OS 3.0 and I am trying to compile ImageMagick with
>PerlMagick 5.1.1 I follow the instructions in the INSTALL readme and
>run the configure script and then run my make without any incident.
I've not had a BSDI system around in a while but the ports page may
have some hints which might prove helpful.
http://www.freebsd.org/ports/perl5.html
e.
------------------------------
Date: Thu, 18 May 2000 15:00:22 GMT
From: brianbear@my-deja.com
Subject: converting packed and zoned decimals using perl
Message-Id: <8g10hr$88h$1@nnrp1.deja.com>
Today is my first ever day coding in Perl as I need a quick and
flexible way to convert data in a file, laso I needed an escuse to
finally use Perl.
I ahve some data from a pesky IBM mainframe that is stored in EBCDIC
and has fields that are packed decimal, and soe that are zoned decimal.
I beleive I am going to to have to use an ebcdic2ascii function to
convert the data but I need to interpret packed fields correctly into
numeric strings for ascii. I know that I can pull out the hex data
using unpack but am not quite sure of the syntax yet
I know I need to get the hex value as a string and then strip out the
numeric data from the hex string. I hope this a pretty easy thing to do
in perl.... if not then I shall be forced to code in C.... again.
Has anyoe done this before and how easy is it. Any ideas or pointer
greatfully accepted. I include an example below of how the data is
stored.
Decimal Value Packed Format Zoned Format
+123 12 3C F1 F2 C3 or
or 12 3F F1 F2 F3
-4321 04 32 1D F4 F3 F2 D1
+000050 00 00 05 0C F0 F0 F0 F0 F5 C0 or
or 00 00 05 0F F0 F0 F0 F0 F5 F0
-7 7D D7
00000 00 00 0C F0 F0 F0 F0 C0 or
or 00 00 0F F0 F0 F0 F0 F0
I got this info from
http://www.room42.com/store/computer_center/packed_decimal.shtml
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: Thu, 18 May 2000 18:04:55 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: converting packed and zoned decimals using perl
Message-Id: <Pine.GHP.4.21.0005181748350.5629-100000@hpplus01.cern.ch>
On Thu, 18 May 2000 brianbear@my-deja.com wrote:
> Today is my first ever day coding in Perl
So it's a pretty sure bet that you haven't been reading the group for
the reasonable period considered appropriate before posting to it,
> as I need a quick and
> flexible way to convert data in a file,
And usenet needs people who are willing to play their part before
appealing to the worldwide resources... (I'm afraid you're going to
find that anyone who blusters in saying that they "need" something
"quick" is likely to set people's teeth on edge...)
> I ahve some data from a pesky IBM mainframe that is stored in EBCDIC
> and has fields that are packed decimal, and soe that are zoned decimal.
http://www.deja.com/=dnc/getdoc.xp?AN=506034675
and the associated thread seems to be relevant to the issues.
> I beleive I am going to to have to use an ebcdic2ascii function to
> convert the data
That'll be fine for character data, but it's hardly going to do much
good to your packed-decimal.
> but I need to interpret packed fields correctly into
> numeric strings for ascii. I know that I can pull out the hex data
> using unpack but am not quite sure of the syntax yet
As Uri said (and you could have easily found out before starting to
alert the group to your problem):
this fails as they are decimal numbers, not hex. you have to grab
each nibble (maybe with some unpack template) and do a *= 10, +=
digit loop on it.
good luck, though I'm glad I got out of IBM mainframes when I did, and
it's been a while now.
------------------------------
Date: Thu, 18 May 2000 10:55:11 -0700
From: Cure <cure@texas.net>
Subject: count the number of lines
Message-Id: <39242E7F.BFA450D2@texas.net>
how do would I beable to count the number of lines in a file that start
with a specified string?
------------------------------
Date: Thu, 18 May 2000 18:11:20 +0200
From: Marco Natoni <blah@nospam.com>
Subject: Re: count the number of lines
Message-Id: <39241628.29FE5388@nospam.com>
Hi Cure,
Cure wrote:
> how do would I beable to count the number of lines in a file
> that start with a specified string?
Since your question seems to me a little bit obfuscated, I can only
suggest you the existence of the $. special variable, that keeps the
number of the last read record (i.e.: line, if you leave $/ untouched).
Best regards,
Marco
------------------------------
Date: Thu, 18 May 2000 16:21:25 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: count the number of lines
Message-Id: <7aln17lth5.fsf@Merlin.i-did-not-set--mail-host-address--so-shoot-me>
Cure <cure@texas.net> writes:
> how do would I beable to count the number of lines in a file that
> start with a specified string?
Is that all you need?
$count = grep /^pattern/, <FH>;
or
while (<FH>) {
$count++ if /^pattern/;
}
or (on *nix)
$count = qw/grep -c pattern filename/;
or
....
--Ala
------------------------------
Date: 18 May 2000 16:39:26 GMT
From: mjtg@cus.cam.ac.uk (M.J.T. Guy)
Subject: Re: count the number of lines
Message-Id: <8g16bu$19b$1@pegasus.csx.cam.ac.uk>
In article <7aln17lth5.fsf@Merlin.i-did-not-set--mail-host-address--so-shoot-me>,
Ala Qumsieh <aqumsieh@hyperchip.com> wrote:
>
> $count = qw/grep -c pattern filename/;
I think you mean qx//.
Mike Guy
------------------------------
Date: Thu, 18 May 2000 16:44:26 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: count the number of lines
Message-Id: <7aitwblses.fsf@Merlin.i-did-not-set--mail-host-address--so-shoot-me>
mjtg@cus.cam.ac.uk (M.J.T. Guy) writes:
> Ala Qumsieh <aqumsieh@hyperchip.com> wrote:
> >
> > $count = qw/grep -c pattern filename/;
>
> I think you mean qx//.
Good catch :-)
--Ala
------------------------------
Date: Thu, 18 May 2000 09:34:47 -0700
From: Jim Cook <jcook@strobedata.com>
To: Cure <cure@texas.net>
Subject: Re: count the number of lines
Message-Id: <39241BA7.B83BFCED@strobedata.com>
> how do would I beable to count the number of lines in a file that start
> with a specified string?
If you mean "how many lines in the file begin with 'abcd'," the answer
is basically:
undef $count;
while (<>) {
$count++ if /^abcd/;
}
--
jcook@strobedata.com Live Honourably 4/1 - 4/3 + 4/5 - 4/7 + . . .
2000 Tuesdays: Feb/last 4/4 6/6 8/8/ 10/10 12/12 9/5 5/9 7/11 11/7 3/14
Strobe Data Inc. home page http://www.strobedata.com
My home page O- http://jcook.net
------------------------------
Date: 18 May 2000 08:12:05 -0700
From: Mike Coffin <mhc@Eng.Sun.COM>
Subject: Re: Delay in Perl
Message-Id: <8p6ya57vqnu.fsf@Eng.Sun.COM>
"Alex Shi" <chpshi@connection.com> writes:
> Hi all,
>
> How can I set a time delay or sleep (5 or 10 seconds) in Perl?
sleep(5) or sleep(10)
-mike
------------------------------
Date: Thu, 18 May 2000 16:03:55 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: Delay in Perl
Message-Id: <3925144e.31049651@news.skynet.be>
Mike Coffin wrote:
>> How can I set a time delay or sleep (5 or 10 seconds) in Perl?
>
>sleep(5) or sleep(10)
sleep 5; sleep 5;
Ah, it was too tempting... :-)
--
Bart.
------------------------------
Date: Thu, 18 May 2000 17:23:15 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: extracting a list from multiple regex matches
Message-Id: <7aaehnlqm3.fsf@Merlin.i-did-not-set--mail-host-address--so-shoot-me>
jed@socrates.berkeley.edu (Jed Parsons) writes:
> Hi, all,
>
> Here's my problem. I want to scan a text for a number of strings of
> text connected by + signs. For example:
>
> a b+c d e+f+g+h i j
>
> In this text, I would want to capture the set [ab] as well as [efgh].
^^
^^
I'll assume you mean 'bc'
How about:
@matches = map {y/+//d;$_} /(\w+\+\w+(?:\+\w+)*)/g;
Golf anyone?
@matches=map(y/+//d&&$_,/(\w+\+\w+(?:\+\w+)*)/g);
y/+//d&&push@matches,$_ for/\S+/g;
@matches=grep{y/+//d&&$_}/\S+/g;
--Ala
------------------------------
Date: Thu, 18 May 2000 18:00:05 GMT
From: Ala Qumsieh <aqumsieh@hyperchip.com>
Subject: Re: extracting a list from multiple regex matches
Message-Id: <7a3dnflowq.fsf@Merlin.i-did-not-set--mail-host-address--so-shoot-me>
Ala Qumsieh <aqumsieh@hyperchip.com> writes:
> @matches=grep{y/+//d&&$_}/\S+/g;
brain fart:
@matches=grep{y/+//d}/\S+/g;
--Ala
------------------------------
Date: Thu, 18 May 2000 15:17:38 GMT
From: gregsptl1962@my-deja.com
Subject: Re: Getopt::Std 1 == 0 ???
Message-Id: <8g11i0$9kb$1@nnrp1.deja.com>
In article <u5kog66b708.fsf@davis.DEMOG.Berkeley.EDU>,
Andrew Perrin - Demography <aperrin@davis.DEMOG.Berkeley.EDU> wrote:
> gregsptl1962@my-deja.com writes:
>
> > #!/usr/bin/perl
> > #!/usr/bin/perl -dw
> >
> > use Getopt::Std;
> > getopts ('c:'); # set -c to the skip count
> >
> > $Getopt::Std::opt_c = '1' unless
> > $Getopt::Std::opt_c;
> > # Set count by default to 1
>
> Since you provided no actual question, I assume from your comment
> below that you're wondering why giving -c 0 as the argument ends up
> with $Getopt::Std::opt_c as 1. Your answer can be found by
> understanding the truth-value of 0.
>
> As an exercise in understanding, try:
>
> perl -e'0 ? print "True\n" : print "False\n";'
>
> ap
>
> >
> > print "$Getopt::Std::opt_c\n"; # Debug Why's -c 0
> > == 1???
>
> --
> ---------------------------------------------------------------------
> Andrew J. Perrin - aperrin@demog.berkeley.edu - NT/Unix Admin/Support
> Department of Demography - University of California at Berkeley
> 2232 Piedmont Avenue #2120 - Berkeley, California, 94720-2120 USA
> http://demog.berkeley.edu/~aperrin --------------------------SEIU1199
>
Someone else replied to this indicating "defined" as my problem i.e.
$Getopt::Std::opt_c = '1' unless defined $Getopt::Std::opt_c;
so when run as
./xx.pl -c 0 ## c actually yields zero
This solved my original post. However I'm still stumped as to why this
below is evaluated false on -c 0
$Getopt::Std::opt_c = '1' unless $Getopt::Std::opt_c;
This will yield the default "1" if run as ./xx.pl -c 0 AND MORE
importantly -1 !! if run as
./xx.pl -c -1 ## Is false only 0 ? i.e. are "1" AND!!! "-1" True????
In summary
./xx.pl -c -1 ## yields c = -1
./xx.pl -c 0 ## yields c = 1
./xx.pl -c 1 ## yields c = 1
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 16 Sep 99 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 16 Sep 99)
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.
| NOTE: The mail to news gateway, and thus the ability to submit articles
| through this service to the newsgroup, has been removed. I do not have
| time to individually vet each article to make sure that someone isn't
| abusing the service, and I no longer have any desire to waste my time
| dealing with the campus admins when some fool complains to them about an
| article that has come through the gateway instead of complaining
| to the source.
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.
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 V9 Issue 3088
**************************************
