[10272] in Perl-Users-Digest
Perl-Users Digest, Issue: 3865 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Oct 1 10:08:11 1998
Date: Thu, 1 Oct 98 07:00:35 -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 Thu, 1 Oct 1998 Volume: 8 Number: 3865
Today's topics:
****Can you show me a simple perl script to run the POS (James Bond 098)
Re: Alternate colors in tables with perl command? <mike.elness@lmco.com>
Binary data in sockets joumdane3@my-dejanews.com
Re: Binary data in sockets <paaa@uic.nnov.ru>
Re: Can't generate HTML! Why??? <perlguy@inlink.com>
Re: CGI to CGI <paaa@uic.nnov.ru>
Re: determine an IP <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: elements of an array passed as args to embedded exp mmurphy@infomedics.com
Re: File manipulation <ben@isolve.net>
How to know if I deal with a file or a directory <sertim@imaginet.fr>
Re: How to know if I deal with a file or a directory <jdf@pobox.com>
Indegrated Development Environment for OO Perl <mkolbuszewski@mail.cebra.com>
Re: Need IP Address Sort Subroutine <sb@sdm.de>
Re: Need IP Address Sort Subroutine <erhmiru@erh.ericsson.se>
Re: Need IP Address Sort Subroutine <erhmiru@erh.ericsson.se>
Re: Need IP Address Sort Subroutine <jdporter@min.net>
Re: Need IP Address Sort Subroutine <jdporter@min.net>
Re: passing javascript vars to CGI <sobocinski@msx.upmc.edu>
Re: POLL: Perl features springing into your face (Larry Wall)
Problem installing Tk.pm, help/guidance please <e.brooks@dial.pipex.com>
Re: Problems Using a Compare Subroutine with Sort <jdf@pobox.com>
Re: Problems Using a Compare Subroutine with Sort <erhmiru@erh.ericsson.se>
pws and sspifilt.dll error hans.klausmann@bwl.fh-regensburg.de
Re: Searching a search-engine script <daniel.vesma@thewebtree.com>
Re: Simple database recommendation needed (Ken Rich)
Size or format problem <gcushing@exchange.nih.gov>
Re: Some kind of 'real' user interface? <perlguy@inlink.com>
Re: Some kind of 'real' user interface? <erhmiru@erh.ericsson.se>
Re: SRC: encrypt your Perl scripts! :-) droby@copyright.com
Re: SRC: encrypt your Perl scripts! :-) droby@copyright.com
Re: Stock paging, anyone seen this script? <erhmiru@erh.ericsson.se>
this should work. Why doesn't it? <daniel.vesma@thewebtree.com>
Re: this should work. Why doesn't it? <jdf@pobox.com>
Time validation, newbie <lawrence.rabbets@compaq.com>
Re: Time validation, newbie (Mike Stok)
Too late for "-T" option ? (Don)
Re: Too late for "-T" option ? <jdf@pobox.com>
Re: two subroutines depending on whether d/l complete o (brian d foy)
Re: Web crawler? <erhmiru@erh.ericsson.se>
Re: What is HFB? <perlguy@inlink.com>
Re: Word wrap for Perl <r.goeggel@atos-group.de>
Special: Digest Administrivia (Last modified: 12 Mar 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 02 Oct 1998 10:50:00 GMT
From: burningboy@hotmail.com (James Bond 098)
Subject: ****Can you show me a simple perl script to run the POST method?
Message-Id: <3614aec3.54731510@news.au.ac.th>
Plz show me a simple script to POST method(Don't USE any module)
Thz forward :)
------------------------------
Date: Thu, 01 Oct 1998 06:20:05 -0700
From: Mike Elness <mike.elness@lmco.com>
Subject: Re: Alternate colors in tables with perl command?
Message-Id: <36138185.D34F7C66@lmco.com>
Daniel Pray wrote:
>
> I've seen some professional web site that have a perl script list a
> database request. The table is alternated rows of color. Does anyone know
> how to do this?
If you lack a crayon, you might try something like this:
@row_colors = ('#FFFFFF','#CCCCCC');
$row_color_index = 0;
for ($i = 0; $i < 10; $i++) {
$row_color_index = (! $row_color_index);
$row_color = $row_colors[$row_color_index];
print <<HERE;
<TR BGCOLOR="$row_color">
<TD>This is row $i</TD>
</TR>
HERE
}
------------------------------
Date: Thu, 01 Oct 1998 11:59:47 GMT
From: joumdane3@my-dejanews.com
Subject: Binary data in sockets
Message-Id: <6uvqrj$73j$1@nnrp1.dejanews.com>
Hello,
I'm trying to write an ftp program and I need to know how to send
and recieve binary data in socket. Anyone could help me?
Thanks a lot
-----== Posted via Deja News, The Leader in Internet Discussion ==-----
http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
------------------------------
Date: Thu, 01 Oct 1998 16:53:09 +0400
From: "Aleksey A. Pavlov" <paaa@uic.nnov.ru>
Subject: Re: Binary data in sockets
Message-Id: <36137B35.1F1AF536@uic.nnov.ru>
joumdane3@my-dejanews.com wrote:
>
> Hello,
> I'm trying to write an ftp program and I need to know how to send
> and recieve binary data in socket. Anyone could help me?
> Thanks a lot
>
> -----== Posted via Deja News, The Leader in Internet Discussion ==-----
> http://www.dejanews.com/rg_mkgrp.xp Create Your Own Free Member Forum
try this:
sysread SOCK,$variable,$len;
Lesha.
------------------------------
Date: Thu, 1 Oct 1998 11:18:55 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: Can't generate HTML! Why???
Message-Id: <3613651F.1D3E753C@inlink.com>
Well, the code looks fine.
So...
Did you view the source in Netscape?
- Was there ANY values inside the <SELECT> </SELECT> tags?
Are you reading the values in from a file?
- Does the "web user" have rights to the file?
Running it from the command line will sometimes work differently because
you are logged in as a different user than the web server runs under.
Check the above and see if it helps...
brent
--
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$ Brent Michalski $
$ -- Perl Evangelist -- $
$ E-Mail: perlguy@technologist.com $
$ Resume: http://www.inlink.com/~perlguy $
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
------------------------------
Date: Thu, 01 Oct 1998 16:48:14 +0400
From: "Aleksey A. Pavlov" <paaa@uic.nnov.ru>
Subject: Re: CGI to CGI
Message-Id: <36137A0E.3D68C4E8@uic.nnov.ru>
Swetal Jariwala wrote:
>
> I have a web form that has only one parameter, a user ID. Once the
> user clicks on the Submit button my Perl CGI script is called. The
> problem now is that my script needs to send that user ID to another
> CGI script to do a lookup in a database. Get the record associated
> with user ID and inject that into a Notes database. Anyone have any
> idea how to go about doing this? The perl script is on a Win32
> platform. Thanks for all help.
>
> Swetal Jariwala
> swet@clk.net
try this:
sub toanatherscript{
local %ENV;
$ENV{'QUERY_STRING'}=urlencode(@_);
system("perl anothersdcript.cgi");
}
Lesha.
------------------------------
Date: 01 Oct 1998 14:59:45 +0200
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: determine an IP
Message-Id: <831zosphdq.fsf@vcpc.univie.ac.at>
Re: determine an IP, Christian
<christian.koch@fuzzy-online.de> said:
Christian> Hello, I have programmed a counter. Now I would
Christian> count hits on my webpage dependent on the IP. How
Christian> can I determine the IP of a webpage-user??
You can't, and in fact it's not a meaningful question as
there is no 1-1 relation between IP address and `user' (in
the general case). But you can find the IP address of the
agent connecting to your web server via:
use CGI;
my $agent = remote_host();
==> perldoc CGI
for more info.
hth
tony
--
Tony Curtis, Systems Manager, VCPC, | Tel +43 1 310 93 96 - 12; Fax - 13
Liechtensteinstrasse 22, A-1090 Wien, | <URI:http://www.vcpc.univie.ac.at/>
"You see? You see? Your stupid minds! | private email:
Stupid! Stupid!" ~ Eros, Plan9 fOS.| <URI:mailto:tony_curtis32@hotmail.com>
------------------------------
Date: Thu, 01 Oct 1998 13:44:58 GMT
From: mmurphy@infomedics.com
Subject: Re: elements of an array passed as args to embedded expect.
Message-Id: <6v010r$dcm$1@nnrp1.dejanews.com>
In article <36129560.A34F095B@min.net>,
John Porter <jdporter@min.net> wrote:
> mmurphy@infomedics.com wrote:
> >
> > Hi, I'm able to set the contents of a given file into an array.
> > I can then print each line separately to stdout.
> > How do I pass each element of a given line
> > as an argument to another (embedded) script.
> > So I'd have multiple lines like this:
> > cust,job1,job2,dat1,dat2,dat3,dat4
> >
> > And I want to pull one line, split on /,/
> > set $var1
> > $var2
> > $var3
> > (etc...)
> > and pass them to an embedded expect script.
> > (it works if hardcoded...)
>
> I'm having a hard time figuring out what you're trying to do.
> Could you post the code you have? Let's see how it works
> with hard-coded values, and take it from there.
>
> --
> John "Many Jars" Porter
>
#!/usr/local/bin/perl -w
$thisHost = `hostname`; chop($thisHost);
$hostname = shift; $key = $hostname;
$host = $hostname;
$user = 'yourusername'; $ex = '';
$passwd = 'yourpasswd';
$file = '*.pgp';
$scriptFileName = "/tmp/$$"; open (SCRIPT, ">$scriptFileName");
print SCRIPT <<END_SCRIPT;
#!/usr/local/bin/expect
set host [lindex \$argv 0]
set dhost [lindex \$argv 1]
set USER [lindex \$argv 2]
set PW [lindex \$argv 3]
set FILE [lindex \$argv 4]
set timeout 300
spawn ftp \$host
expect {
timeout { exit 1 }
"Connection refused" { exit 2 }
"Unknown host" { exit 3 }
"):" { }
}
# expect eof
send "\$USER\\r"
set timeout 60
expect "Password:"
set timeout 60
send "\$PW\\r"
expect "ftp>"
send "bin\r"
expect "ftp>"
send "prompt\r"
set timeout 120
expect "ftp>"
send "pwd\r"
expect "ftp>"
send "mget \$FILE\\r"
expect "ftp>"
send "quit\r"
expect eof
END_SCRIPT close SCRIPT; chmod 0755, $scriptFileName; 7 4vterm (88%)07 7
system "$scriptFileName $host $thisHost $user $passwd $file"; system "rm
$scriptFileName";
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 01 Oct 1998 09:55:57 +0000
From: Ben Duncan <ben@isolve.net>
Subject: Re: File manipulation
Message-Id: <361351AD.F04EF066@isolve.net>
Hi!
I finally figured out how to extract an email address which
is wrapped around ()'s
if(m/\((.*)\)/ ) {
$email = $1;
}
Seems to do the job fine!
Ciao,
------------------------------
Date: Thu, 01 Oct 1998 13:25:23 +0100
From: patrick Scotto <sertim@imaginet.fr>
Subject: How to know if I deal with a file or a directory
Message-Id: <361374B3.284B13E6@imaginet.fr>
I want my perl program to explore my disk (full of files and
directories) and to create a list of all the filenames.
For this, it opens the top most directory and takes the name of all
files... ignoring whether the name it reads is related to a file or a
directory.
How can I check that the name I deal with is related to a file or a
diretory ?
Is there a function that returns the type of a file ?
Thanks for your help.
------------------------------
Date: 01 Oct 1998 15:16:05 +0200
From: Jonathan Feinberg <jdf@pobox.com>
To: patrick Scotto <sertim@imaginet.fr>
Subject: Re: How to know if I deal with a file or a directory
Message-Id: <m3d88cqv6y.fsf@joshua.panix.com>
patrick Scotto <sertim@imaginet.fr> writes:
> Is there a function that returns the type of a file ?
There is a large list of so-called "file test" functions. See perlfunc
for a complete list. They are the very first entry.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Thu, 01 Oct 1998 09:15:23 -0400
From: Marcin Kolbuszewski <mkolbuszewski@mail.cebra.com>
Subject: Indegrated Development Environment for OO Perl
Message-Id: <3613806B.29F246CD@mail.cebra.com>
Perl is a mature OO language now and would benefit (at least in my
opinion) from some
sort of GUI driven environment to do development. Although it may be
contrary to the spirit of the
language and many purists will call me names, I think a simple class
browser would help
development of applications.
For example we've just started modelling and prototyping (and tried to
persuade Rational people
to include Perl in new release of Rose) a quite large OO system in Perl.
We feel just like
C++ people in late 80s or Smalltalk people before PARC times...
Would you have any suggestions (and time) to provide them?
Marcin Kolbuszewski
Merx
Cebra Inc.
------------------------------
Date: 1 Oct 1998 11:27:30 GMT
From: Steffen Beyer <sb@sdm.de>
Subject: Re: Need IP Address Sort Subroutine
Message-Id: <6uvov2$cp7$1@bsdti6.sdm.de>
In article <6urq6t$pe2$1@callisto.clark.net>, Joe Williams <willliams@clark.net> wrote:
> Does anyone have, or can anyone me toward a routine that will sort IP
> addresses? Many thanks.
Easy:
foreach $item (@list)
{
if ($item =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/))
{
$host = sprintf("%.2X%.2X%.2X%.2X", $1, $2, $3, $4);
$addr = sprintf("%d.%d.%d.%d", $1, $2, $3, $4); # removes leading 0
$addr{$host} = $addr;
# $name{$host} = $name; # wherever this comes from
}
}
foreach $host (sort keys(%hash))
{
printf("%-40.40s %s\n", $name{$host}, $addr{$host});
}
HTH.
Yours,
--
Steffen Beyer <sb@engelschall.com>
Free Perl and C Software for Download: www.engelschall.com/u/sb/download/
------------------------------
Date: 01 Oct 1998 14:56:40 +0200
From: Michal Rutka <erhmiru@erh.ericsson.se>
Subject: Re: Need IP Address Sort Subroutine
Message-Id: <lahfxoxwxj.fsf@erh.ericsson.se>
gml4410@ggr.co.uk (Lack Mr G M) writes:
> |> Sorry, another typo. I know what CPAN is, and I know what standard distribution is and I
> |> know that when you have more than 100 computers on which your script must
> |> run than much better is to use only a standard distribution.
>
> No it isn't. The much MUCH better thing to do is to get all of these
> systems to use a *single* distribution. That's what network file
> systems are for. Then you just have to install additional modules once
> and they appear on all systems.
Yeah, if they are on a single network. But I am not an admin (what a broing work
anyway). What I am talking about is 100 customers which are using my software. Do
you have any 'bright' idea to solve this?
> There is far more to administering systems than writing Perl - you
> also need to know how to make the admin simple by using the available
> options.
Yeah, that is good for people which want work as admin and be paid as admin. I am
not.
> |> It took me about 10 seconds to understand a syntax. I didn't found it pretty.
> |> And one more thing, in a job which I do I learned to use a word 'transform' to
> |> more complicated things than a simple data manipulation. That's why I call it
> |> a Schwartzian thing.
>
> I suggest you look up transform in a dictionary.
And start calling grep as 'transformation program'. No thanks.
Regards,
Michal
------------------------------
Date: 01 Oct 1998 15:02:37 +0200
From: Michal Rutka <erhmiru@erh.ericsson.se>
Subject: Re: Need IP Address Sort Subroutine
Message-Id: <lag1d8xwnm.fsf@erh.ericsson.se>
gml4410@ggr.co.uk (Lack Mr G M) writes:
[...]
> |> 1. Michal gave the following formula for converting a dotted-quad
> |> string into a string of four chars:
> |> pack( "C4", split(/\./,$_) )
> |> This is so fast that memoization has no effect.
>
> However, the address format for IP does not require you to use 4
> fields, you can also specify network.host. This is why it is better to
> use inet_aton, since it handles this.
>
> Eg: 127.1 is the same as 127.0.0.1
> 172.16.3 -> 172.16.0.3
> 172.16.56239 -> 172.16.219.175
>
> You may not use this, but why not make use of the code which is
> already written that *can* handle it? Stop re-inventing the wheel (or
> rather, in this case, re-inventing it as an arc!).
And therefore, when you run this code at home then start a dialup even when you
know that your addresses are in a cannonical form? No thanks. BTW invention the
wheel, or even an arc takes more effort than writing a few lines of Perl code.
Michal
------------------------------
Date: Thu, 01 Oct 1998 09:28:32 -0400
From: John Porter <jdporter@min.net>
Subject: Re: Need IP Address Sort Subroutine
Message-Id: <36138380.670E36F2@min.net>
Michal Rutka wrote:
>
> And therefore, when you run this code at home then start a dialup
> even when you
> know that your addresses are in a cannonical form? No thanks.
> BTW invention the
> wheel, or even an arc takes more effort than writing a few lines of
> Perl code.
Not sure what your point is.
inet_aton() is not only at least as portable, but MORE correct
than your solution. And takes less typing besides.
--
John "Many Jars" Porter
baby mother hospital scissors creature judgment butcher engineer
------------------------------
Date: Thu, 01 Oct 1998 09:31:27 -0400
From: John Porter <jdporter@min.net>
Subject: Re: Need IP Address Sort Subroutine
Message-Id: <3613842F.99E6962D@min.net>
Steffen Beyer wrote:
>
> In article <6urq6t$pe2$1@callisto.clark.net>, Joe Williams <willliams@clark.net> wrote:
>
> > Does anyone have, or can anyone me toward a routine that will sort IP
> > addresses? Many thanks.
>
> Easy:
>
> foreach $item (@list)
> {
> if ($item =~ /^(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/))
> {
> $host = sprintf("%.2X%.2X%.2X%.2X", $1, $2, $3, $4);
> $addr = sprintf("%d.%d.%d.%d", $1, $2, $3, $4); # removes leading 0
> $addr{$host} = $addr;
> # $name{$host} = $name; # wherever this comes from
> }
> }
> foreach $host (sort keys(%hash))
> {
> printf("%-40.40s %s\n", $name{$host}, $addr{$host});
> }
I do not see a hash named %hash being created anywhere.
I assume (i.e. I hope) you meant to say %addr.
Anyway, this sorts the addresses as strings in their
original form, not numerically, so that 127.0 is put
before 2.0. I don't think that's what he was looking for.
--
John "Many Jars" Porter
baby mother hospital scissors creature judgment butcher engineer
------------------------------
Date: Thu, 01 Oct 1998 08:42:12 -0400
From: Richard Sobocinski <sobocinski@msx.upmc.edu>
To: "Phinneas G. Stone" <phinneas@eskimo.com>
Subject: Re: passing javascript vars to CGI
Message-Id: <361378A3.2B7B190E@msx.upmc.edu>
I think you can accomplish this much easier by adding WRAP="PHYSICAL"
I never used it, but it is supposed to automatically wrap input in the
textarea box while the user types. Unlike WRAP="VIRTUAL" though, the
"PHYSICAL" setting preserves the line feeds.
Rich
Phinneas G. Stone wrote:
> Is it possible to process a variable with javascript, then pass that
> value along to a CGI script? What I'm trying to do is preserve the line
> breaks in a <textarea> by encoding with the javascript escape() function
> and decoding them with perl once the form has been submitted.
------------------------------
Date: 30 Sep 1998 18:24:10 -0700
From: larry@kiev.wall.org (Larry Wall)
Subject: Re: POLL: Perl features springing into your face
Message-Id: <6uuljq$jvv@kiev.wall.org>
In article <6uli7t$q8d$1@mathserv.mps.ohio-state.edu>,
Ilya Zakharevich <ilya@math.ohio-state.edu> wrote:
>[A complimentary Cc of this posting was sent to Thomas A. Horsley
><Tom.Horsley@worldnet.att.net>],
>who wrote in article <uu31u24jo.fsf@worldnet.att.net>:
>> barewords - if you want a quoted string, for gosh sakes put $#@!
>> quotes around it!
>
>Definitely I like barewords where they are unambiguous: in ->{foo},
>foo => and `use foo'. A list of places where they should be allowed
>should be created.
According to the official definition of "bareword", none of these examples
are. Real barewords are already outlawed by 'use strict'.
Larry
------------------------------
Date: Thu, 1 Oct 1998 13:02:14 +0100
From: "Elliott Brooks" <e.brooks@dial.pipex.com>
Subject: Problem installing Tk.pm, help/guidance please
Message-Id: <6uvqso$r1o$1@plug.news.pipex.net>
Hi all,
(not sure if this should be posted in linux newsgroup or perl but here goes)
I love PERL and wanted to try playing with adding a GUI front end with TK as
described in the Advanced Perl Programming book.
My setup is an old Intel pentium running Linux, Redhat 5.1.
(Yes, I am trying to do this while logged in as root.)
I have downloaded Tk800_011_tar.gz from CPAN
unzipped and untarred it read the readme, ran PERL Makefile.PL which is
successful except for at the end says it cannot find Test.pm.
Full output below.
so downloaded Test-1_08_tar.gz, unzipped and untarred it which complained
that it could not find Harness.pm.
Full output at bottom below.
Harness.pm already exists and sits in /usr/lib/perl5/Test/
This leaves me a bit stuck. I have tried moving .pm files around a bit
I am unsure as to how to proceed.
would appreciate some help/guidance please
rgds
Kie
<mailto:kie@hotsite.to>
[root@blue Tk800.011]# perl Makefile.PL
perl is installed in /usr/lib/perl5/i386-linux/5.00404 okay
Test Compiling config/signedchar.c
Test Compiling config/Ksprintf.c
Test Compiling config/tod.c
Test Compiling -DTIMEOFDAY_TZ config/tod.c
TZ gettimeofday()
Using -L/usr/X11R6/lib to find /usr/X11R6/lib/libX11.so.6.1
Using -I/usr/X11R6/include to find /usr/X11R6/include/X11/Xlib.h
Note (probably harmless): No library found for -lpt
Generating Dependencies for linux, win_arch=x
Test Compiling config/Hstrtoul.c
Test Compiling config/Hstrdup.c
Test Compiling config/Hstrcasecmp.c
Finding dependancies for ClientWin.c
Finding dependancies for Lang_f.c
Finding dependancies for Xlib_f.c
Finding dependancies for XrmOption.c
Finding dependancies for imgBMP.c
<snip>etc.....etc.....
Finding dependancies for tkUnixWm.c
Finding dependancies for tkUnixXId.c
Finding dependancies for tkUtil.c
Finding dependancies for tkVisual.c
Finding dependancies for tkWin_f.c
Finding dependancies for tkWindow.c
Finding dependancies for tk_f.c
Writing Makefile for Tk::pTk
Writing Makefile for Tk::pod
Writing Makefile for Tk::demos
Finding dependancies for X.xs
Writing Makefile for Tk::X
Finding dependancies for Xlib.xs
Writing Makefile for Tk::Xlib
Writing Makefile for Tk::Tixish
Finding dependancies for Pixmap.xs
Writing Makefile for Tk::Pixmap
Finding dependancies for TixGrid.xs
Writing Makefile for Tk::TixGrid
Finding dependancies for Text.xs
Writing Makefile for Tk::Text
Finding dependancies for TList.xs
Writing Makefile for Tk::TList
Finding dependancies for Scrollbar.xs
Writing Makefile for Tk::Scrollbar
Finding dependancies for Scale.xs
Writing Makefile for Tk::Scale
Finding dependancies for Photo.xs
Writing Makefile for Tk::Photo
Finding dependancies for NBFrame.xs
Writing Makefile for Tk::NBFrame
Finding dependancies for Mwm.xs
Writing Makefile for Tk::Mwm
Finding dependancies for Menubutton.xs
Writing Makefile for Tk::Menubutton
Finding dependancies for Listbox.xs
Writing Makefile for Tk::Listbox
Finding dependancies for InputO.xs
Writing Makefile for Tk::InputO
Finding dependancies for IO.xs
Writing Makefile for Tk::IO
Finding dependancies for HList.xs
Writing Makefile for Tk::HList
Finding dependancies for Entry.xs
Writing Makefile for Tk::Entry
Writing Makefile for Tk::DragDrop
Finding dependancies for Canvas.xs
Writing Makefile for Tk::Canvas
Finding dependancies for Bitmap.xs
Writing Makefile for Tk::Bitmap
Finding dependancies for Tk.xs
Finding dependancies for chnGlue.c
Finding dependancies for evtGlue.c
Finding dependancies for objGlue.c
Finding dependancies for tixGlue.c
Finding dependancies for tkGlue.c
Finding dependancies for tkGlue_f.c
Finding dependancies for tkWin32Dll.c
Skipping test t/Trace.t needs 'Test.pm':use Test;
Skipping test t/create.t needs 'Test.pm':use Test;
Skipping test t/fileselect.t needs 'Test.pm':use Test;
Skipping test t/font.t needs 'Test.pm':use Test;
Skipping test t/geomgr.t needs 'Test.pm':use Test;
Skipping test t/mega.t needs 'Test.pm':use Test;
Skipping test t/mwm.t needs 'Test.pm':use Test;
Skipping test t/widget.t needs 'Test.pm':use Test;
Skipping test t/zzHList.t needs 'Test.pm':use Test;
Skipping test t/zzPhoto.t needs 'Test.pm':use Test;
Skipping test t/zzScrolled.t needs 'Test.pm':use Test;
Skipping test t/zzText.t needs 'Test.pm':use Test;
Skipping test t/zzTixGrid.t needs 'Test.pm':use Test;
Writing Makefile for Tk
[root@blue Tk800.011]#
[root@blue Test-1.08]# perl Makefile.PL
Warning: prerequisite Test::Harness 1.1601 not found at (eval 1) line 221.
Writing Makefile for Test
[root@blue Test-1.08]#
------------------------------
Date: 01 Oct 1998 15:12:58 +0200
From: Jonathan Feinberg <jdf@pobox.com>
To: "Joe Williams" <williams@clark.net>
Subject: Re: Problems Using a Compare Subroutine with Sort
Message-Id: <m3g1d8qvc5.fsf@joshua.panix.com>
"Joe Williams" <willliams@clark.net> writes:
> However, I'm not getting good results
Nowhere do you say what you mean by "not getting good results". Do you
mean your machine is crashing? What? Could you provide some brief but
complete sample code that demonstrates the problem you're having?
> Does anyone know a safe way to write a comparison subroutine that
> does some processing on the strings that are passed?
If you're potentially changing the comparison order of any two members
of the list being sorted, then that's a definite no-no, as documented
in perlfunc.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: 01 Oct 1998 15:16:30 +0200
From: Michal Rutka <erhmiru@erh.ericsson.se>
To: willliams@clark.net
Subject: Re: Problems Using a Compare Subroutine with Sort
Message-Id: <laemssxw0h.fsf@erh.ericsson.se>
"Joe Williams" <willliams@clark.net> writes:
> I need to sort array strings by the IP address that each string contains.
> John Porter posted a clever routine to covert the dotted quad address into
> an integer. The normal Perl sort permits calling a subroutine to do the
> comparison. So, I can just use index and substr to lift the IP addresses out
> of the strings being compared, which sort passes to the subroutine by
> reference in the variables $a and $b, convert them into integers, compare
> the integers and return 0, -1, or 1 to the sort routine. In principal, $a
> and $b arn't changed.
>
> However, I'm not getting good results, possibly because of scope problems
> with the way sort passes arguments in the global variables $a and $b by
> reference.
Hymm, just tell what results you are getting and why do you think they are
wrong. Then I tell you why John's clever routine is not so clever.
Hint - you are loohing for bug in a wrong place. After you spot a bug, you can
tell John how much time did it cost you. He should be proud.
>
> I'm haven't isolated the subroutine variables in a package, so I don't think
> that is a problem.
>
> Does anyone know a safe way to write a comparison subroutine that does some
> processing on the strings that are passed? Is there a standard way to manage
> sort subroutine variables in such cases?
>
> Many TXs.
Yes. Just try this:
@ips_sorted = sort {pack("C4",split(/\./,$a)) cmp pack("C4",split(/\./,$b))}
@ips;
Regards,
Michal
------------------------------
Date: Thu, 01 Oct 1998 11:42:25 GMT
From: hans.klausmann@bwl.fh-regensburg.de
Subject: pws and sspifilt.dll error
Message-Id: <6uvpql$34e@rrzs3.uni-regensburg.de>
Hi,
Error : could not load sspifilt.dll (the sspifilt.dll is on the disk!)
I have problems to run a just a simple Perl sript
with the web browser
http://localhost/scripts/test.cgi
OS: Win95
Perl installed: pw32i316.exe
Personell Web Server Microsoft
PSW installed: pwssetup.exe
Log File message (web server):
could not load sspifilt.dll (the sspifilt.dll is on the disk!)
Error Message Web Browser:
HTTP/1.0 500 Server-Error
Perl Sript:
test.cgi (it is in \Script and has permisson to execute!)
========
#!/perl32/bin/perl
print "Content-Type: text/html\n\n";
print "<html><head><title>Test</title></head>\n";
print "<body>";
print "test";
print "</body></html>\n";
------------------------------
Date: Thu, 1 Oct 1998 14:17:55 +0100
From: "Daniel Vesma" <daniel.vesma@thewebtree.com>
Subject: Re: Searching a search-engine script
Message-Id: <36138168.0@news.thefree.net>
We will be able to supply you with one at a very good price.
Please e-mail me if you would like more details.
Daniel Vesma
daniel.vesma@thewebtree.com
------------------------------
Date: 1 Oct 1998 12:53:21 GMT
From: kenr@troi.cc.rochester.edu (Ken Rich)
Subject: Re: Simple database recommendation needed
Message-Id: <6uvu01$7v729@biko.cc.rochester.edu>
In article <36116018.38991FDC@harris.com>,
Charlie Davies <cdavies@harris.com> wrote:
>I am working on an UNIX based application where I need a simple
>database. I was looking for a recommendation from this group.
>
>The database will be fairly small 20K-40K records. Each record would
>have 3 text fields, each containing 50-60 characters. During a normal
>session, I will have to open the DB, find a given record, update its
>content, and close the DB.
>
>I don't have access to commercial databases for this application.
>
>Any recommendations would be greatly appreciated.
>
>--
> \_\_ \_\_\_ \_\_\_ Charlie Davies Harris ASD
>\_ \_ \_ \_ \_ P.O. Box 94000
> \_ \_\_ \_ \_ Voice: 407-727-6235 MS 102-4832
> \_ \_ \_ \_ \_ Pager: 407-690-8518 Melbourne, Fl 32902
> \_\_ \_\_\_ \_\_\_ FAX: 407-729-3212 Location: 102-3422
> mailto:cdavies@harris.com
>
>
>
------------------------------
Date: Thu, 01 Oct 1998 21:28:49 -0400
From: George Cushing <gcushing@exchange.nih.gov>
Subject: Size or format problem
Message-Id: <36142C51.495F9C65@exchange.nih.gov>
I am getting some minus numbers in my statistical reports. We keep
track of
users looking at out homepage and downloading files. Looking at the
total
size of files downloading there are some minus numbers example
-2017337938 for
the bytes downloaded. I should be getting 2,277,629,358 as the number
of bytes
sent. I get this when the bytes size is over 2 gig. My question is:
Is there a
size limit in printing with format cammand? I increased my format size
to
@>>>>>>>>>>>. It seems I am truncating the number being printed and
there is
no sign to the number. I do not know why I am truncating the output if
it is over
2 gig. I displayed the variable right before printing the report line
and it is okay. This must mean that the problem is when I print the
report.
I just wonder if anyone had this problem using the format command. I
appreciate
your help if you can help. I know I am not showing my whole program but
I narrowed the problem down to the format command and printing out the
report, I think.
------------------------------
Date: Thu, 1 Oct 1998 11:11:11 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: Some kind of 'real' user interface?
Message-Id: <3613634F.B983A2B7@inlink.com>
I just front-end the programs I want with a CGI program.
Then I use my GUI (Netscape) to do my input/output.
brent
--
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$ Brent Michalski $
$ -- Perl Evangelist -- $
$ E-Mail: perlguy@technologist.com $
$ Resume: http://www.inlink.com/~perlguy $
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
------------------------------
Date: 01 Oct 1998 14:25:39 +0200
From: Michal Rutka <erhmiru@erh.ericsson.se>
Subject: Re: Some kind of 'real' user interface?
Message-Id: <lak92kxyd8.fsf@erh.ericsson.se>
"David" <david@nospam.port80.com> writes:
> hi there,
>
> I'm trying to work out how I can add some kind of 'graphical
> interface' to my Perl programs running under NT. I don't mind
> using a DOS window interface (with limited menus, and graphics)
> but a Windows interface would be even better.
You can try tcl/tk. It works cool under Windows.
Michal
------------------------------
Date: Thu, 01 Oct 1998 12:24:27 GMT
From: droby@copyright.com
Subject: Re: SRC: encrypt your Perl scripts! :-)
Message-Id: <6uvs9q$8ce$1@nnrp1.dejanews.com>
In article <1dg64fl.xp0h87fj3qb2N@slip166-72-108-178.ny.us.ibm.net>,
kpreid@ibm.net (Kevin Reid) wrote:
> <droby@copyright.com> wrote:
>
> > $_ = ''; # Why do I need this? It's silly to need this!
> > $_ = <FILE> until (/my \$key/);
>
> do {$_ = <FILE>} until /my \$key/;
>
> From perlsyn:
>
> The while and until modifiers also have the usual "while loop" semantics
> (conditional evaluated first), except when applied to a do-BLOCK (or to
> the now-deprecated do-SUBROUTINE statement), in which case the block
> executes once before the conditional is evaluated. This is so that you
> can write loops like:
>
> do {
> $line = <STDIN>;
> ...
> } until $line eq ".\n";
>
Light dawns! Thank you.
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: Thu, 01 Oct 1998 12:40:56 GMT
From: droby@copyright.com
Subject: Re: SRC: encrypt your Perl scripts! :-)
Message-Id: <6uvt8p$9i5$1@nnrp1.dejanews.com>
In article <361294C1.B87554E5@bbnplanet.com>,
Elaine -HappyFunBall- Ashton <eashton@bbnplanet.com> wrote:
> Greg Bacon wrote:
>
> > Tom is tall enough to ride this roller coaster. By your participation
> > in this thread, you and Elaine have shown that you aren't. :-)
>
> *cough* Ummm, I think I am taller than Tom if I remember correctly. Who
> 'ya callin' short jerky-boy? ;)
>
I'm only 5'7". Am I allowed on this ride?
Luckily, everyone's using lots of smileys, or I'd have a complex. ;-)
Of course, if I were a little taller, I might have done better code to prove
my point, or even obfuscated it by loading the entire "encrypted" script and
building my decrypting routine from it by calling its own code...
--
Don Roby
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 01 Oct 1998 14:11:59 +0200
From: Michal Rutka <erhmiru@erh.ericsson.se>
To: cypher5@yahoo.com
Subject: Re: Stock paging, anyone seen this script?
Message-Id: <lan27gxz00.fsf@erh.ericsson.se>
cypher5@die.spammers.yahoo.com (Cypher) writes:
> Hi,
> I have been working on a script to page delayed stock quotes to alpha
> pagers. I have a command line paging program installed. I can't seem
> to get the script to get the quotes and parse.....does anyone know of
> a script that will do this?!
well, this line will get quotes:
perl -MLWP::Simple -e 'getprint "http://your.stock.server/quotes.html"'
if you pipe this via
perl -ne 's/<.*?>//g;print;'
then you get a text file which you can simply analyze with perl. Note that the code
above will not remove HTML stuff which spans over more lines. How to improve it
is up to you. You can also try to use HTML::Parse, but for such a simple task the
code above is faster. E.g. if you run:
perl -MLWP::Simple -MHTML::Parse -e 'print parse_html(get "http://your.stock/")->format'
then you get a text on STDOUT but perhaps with annoying [TABLE NOT SHOWN].
> If not does anyone know of a way I might be able to do this?
I know.
Regards,
Michal
------------------------------
Date: Thu, 1 Oct 1998 14:05:23 +0100
From: "Daniel Vesma" <daniel.vesma@thewebtree.com>
Subject: this should work. Why doesn't it?
Message-Id: <36137dfb.0@news.thefree.net>
>From what I know of Perl, this should work fine. Why the hell doesn't it????
It gets through my ISP's script checker (-c I believe), but it only seams to
get as far as the #THIS IS WHERE IT BREAKS LINE
Any ideas would be really helpful.
#!/usr/bin/perl
use CGI qw(param);
print "Content-type: text/html\n\n";
$Records = 0;
$SearchFor = param("SearchString");
$SearchMode = param("SearchMode");
$URLstring = $SearchMode . ".txt";
print <<"STARTHTML";
<HTML>
<HEAD>
<LINK rel="stylesheet"
HREF="http://www.thewebtree.com/temp/noList/gloucestershire/style.css">
<TITLE>Our Gloucestershire</TITLE>
</HEAD>
<BODY BGCOLOR="#000000" TEXT="#FFFFFF" LINK="#FFFFFF" ALINK="#FFFFFF"
VLINK="#FFFFFF" >
<CENTER><H1>Search Results</H1></CENTER>
<TABLE WIDTH="600" BORDER="0" CELLPADDING="0" CELLSPACING="0">
<TR VALIGN="TOP">
<TD WIDTH="201">
</TD>
<TD WIDTH="399">
<P>
STARTHTML
#THIS IS WHERE IT BREAKS LINE
if ($SearchMode eq "pub")
{
pub();
}
if ($SearchMode eq "attraction")
{
attraction();
}
sub pub();
{
open(INDB, $URLstring);
while(<INDB>)
{
if (/$SearchFor/io)
{
($PubID, $PubName, $PubAddress, $PubTown, $PubDescription, $PubCode,
$PubX, $PubY) = split(/\*/, $_);
print <<"ENDRECORD";
<P><B>$PubName</B><BR>
$PubAddress<BR>
$PubTown<BR>
$PubCode</P>
ENDRECORD
$Records++;
}
}
close(INDB);
}
sub attraction();
{
open(INDB, $URLstring);
while(<INDB>)
{
if (/$SearchFor/io)
{
($AttID, $AttName, $AttAddress, $AttTown, $AttDescription, $AttCode,
$AttX, $AttY) = split(/\*/, $_);
print <<"ENDRECORD";
<P><B>$AttName</B><BR>
$AttAddress<BR>
$AttTown<BR>
$AttCode</P>
ENDRECORD
$Records++;
}
}
close(INDB);
}
print "$Records Records found";
print <<"ENDHTML";
<CENTER><P><A HREF="main.html">home</A> - <A HREF="search.html">search</A> -
<A HREF="maps.html">maps</A> - <A HREF="golf.html">golf</A><BR><A
HREF="food.html">food & drink</A> - <A HREF="hotels.html">where to
stay</A><BR><A HREF="attractions.html">attractions</A> - <A
HREF="companies.html">companies</A> - <A HREF="people.html">people</A><BR><A
HREF="towns.html">towns</A> - <A HREF="gallery.html">gallery</A> - <A
HREF="cards.html">postcards</A><BR><A HREF="who.html">who made
this?</A></CENTER>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
ENDHTML
exit(0);
------------------------------
Date: 01 Oct 1998 15:44:44 +0200
From: Jonathan Feinberg <jdf@pobox.com>
To: "Daniel Vesma" <daniel.vesma@thewebtree.com>
Subject: Re: this should work. Why doesn't it?
Message-Id: <m3af3gqtv7.fsf@joshua.panix.com>
"Daniel Vesma" <daniel.vesma@thewebtree.com> writes:
> From what I know of Perl, this should work fine. Why the hell
> doesn't it???? It gets through my ISP's script checker (-c I
> believe), but it only seams to get as far as the #THIS IS WHERE IT
> BREAKS LINE
Stop yelling. "-c" is not your ISP's script checker; it's an argument
to the perl program, as documented in perlrun. What do you mean by "it
only seems to get as far as" a given line? What happens next? Does
your browser explode?
> $SearchMode = param("SearchMode");
I'd guess that there is no param called "SearchMode", and that,
therefore, $SearchMode is undefined. Are you sure about the
capitalization of the field name on the form?
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Thu, 1 Oct 1998 11:23:29 GMT
From: "Lawrence Rabbets" <lawrence.rabbets@compaq.com>
Subject: Time validation, newbie
Message-Id: <01bded2d$c3b25f00$03cb3d9b@C2187.gor.eur.compaq.com>
Hi all,
Is there an easy way for validating a time string to be between 00:00 and
23:59, without writing a function that removes the ':' and validating the
hours and minutes seperatly.
Regards
Lawrence
------------------------------
Date: 1 Oct 1998 13:34:30 GMT
From: mike@mike.stok.co.uk (Mike Stok)
Subject: Re: Time validation, newbie
Message-Id: <6v00d6$n5d@news-central.tiac.net>
In article <01bded2d$c3b25f00$03cb3d9b@C2187.gor.eur.compaq.com>,
Lawrence Rabbets <lawrence.rabbets@compaq.com> wrote:
>Hi all,
>
>Is there an easy way for validating a time string to be between 00:00 and
>23:59, without writing a function that removes the ':' and validating the
>hours and minutes seperatly.
You could use a regex e.g.
if ($time =~ /^(?:2[0-3]|[01][0-9]):[0-5][0-9]$/) {
...
}
That coule be expanded to
if ($time =~ /^
(?: # one of
2[0-3] # hours 20 .. 23
| # or
[01][0-9] # 00 .. 19
)
: # literal colon
[0-5][0-9] # 00 .. 59
$
/x) {
...
}
but I'll confess to not having exhaustively tested this, listening to
Loose Tubes may be twisting my mind.
Hope this helps,
Mike
--
mike@stok.co.uk | The "`Stok' disclaimers" apply.
http://www.stok.co.uk/~mike/ | PGP fingerprint FE 56 4D 7D 42 1A 4A 9C
http://www.tiac.net/users/stok/ | 65 F3 3F 1D 27 22 B7 41
stok@colltech.com | Collective Technologies (work)
------------------------------
Date: Thu, 01 Oct 1998 13:39:36 GMT
From: defike@nospam.ilstu.edu (Don)
Subject: Too late for "-T" option ?
Message-Id: <36158614.2480773@news.ice.net>
Hello,
I have a program using;
#!/usr/local/bin/perl -Tw
Which returns when run;
Too late for "-T" option at line 1
Any ideas what is causing this error?
Thanks,
Don@ defike@NOSPAM.ilstu.edu
------------------------------
Date: 01 Oct 1998 15:51:40 +0200
From: Jonathan Feinberg <jdf@pobox.com>
To: defike@ilstu.edu
Subject: Re: Too late for "-T" option ?
Message-Id: <m37lykqtjn.fsf@joshua.panix.com>
defike@nospam.ilstu.edu (Don) writes:
> Too late for "-T" option at line 1
> Any ideas what is causing this error?
There's an entry for this error message in the perldiag document.
--
Jonathan Feinberg jdf@pobox.com Sunny Brooklyn, NY
http://pobox.com/~jdf
------------------------------
Date: Thu, 01 Oct 1998 09:39:19 -0400
From: comdog@computerdog.com (brian d foy)
Subject: Re: two subroutines depending on whether d/l complete or not
Message-Id: <comdog-ya02408000R0110980939190001@news.panix.com>
Keywords: from just another new york perl hacker
In article <daniel-0110980158130001@usr23-dialup49.mix1.sacramento.cw.net>, daniel@intecomp.com (Daniel Pray) posted:
>I want to run two subroutines depending on whether a d/l is completed or
>not. Does any one know how to do this?
are you going to have the net completely write this script for you?
perhaps you should pick up a copy of Learning Perl and see the chapter
on control structures.
Learning Perl
Randal L. Schwartz & Tom Christiansen
ISBN 1-56592-284-0
<URL:http://www.oreilly.com>
--
brian d foy <comdog@computerdog.com>
CGI Meta FAQ <URL:http://computerdog.com/CGI_MetaFAQ.html>
Comprehensive Perl Archive Network (CPAN) <URL:http://www.perl.com>
Perl Mongers needs volunteers! <URL:http://www.pm.org/to-do.html>
------------------------------
Date: 01 Oct 1998 14:29:07 +0200
From: Michal Rutka <erhmiru@erh.ericsson.se>
Subject: Re: Web crawler?
Message-Id: <laiui4xy7g.fsf@erh.ericsson.se>
"Stewart Taylor" <stewart.taylor@skt.co.uk> writes:
> I need to produce a script which will get a document from a particular URL,
> read some data from specific lines, and save it to a file, several times
> over. Is there a source of scripts for this type of function?
I don't know about any, but if you spend some time to learn perl then you can
write such a script in a matter of minuttes.
You can also hire a programmer. I can write it for you if you send me specs.
My fee is $250 per hour.
Regards,
Michal
>
> Stewart.Taylor@skt.co.uk
> S dot K dot T Ltd
------------------------------
Date: Thu, 1 Oct 1998 11:07:08 GMT
From: Brent Michalski <perlguy@inlink.com>
Subject: Re: What is HFB?
Message-Id: <3613625C.91D85035@inlink.com>
Elaine -HappyFunBall- Ashton wrote:
>
> Here, for all those freaks who have mailed me asking 'WTF if HFB' this
> is the transcript of the SNL commercial from way back when it used to be
> funny. Enjoy.
>
> -----
> Happy Fun Ball
>
> (kids)
> It's Happy!
> It's Fun!
> It's Happy Fun Ball!
>
> (announcer)
> Yes, it's Happy Fun Ball,
> the toy sensation
> that's sweeping the nation.
> Only 14.95 at participating stores!
>
> Get one Today
>
> (background voice)
> Warning: Pregnant women, the elderly, and children should avoid
> prolonged exposure to Happy Fun Ball.
>
> Caution: Happy Fun Ball may suddenly accelerate to dangerous speeds.
>
> Happy Fun Ball contains a liquid core, which if exposed due to rupture
> should not be touched, inhaled, or looked at.
>
> Do not use Happy Fun Ball on concrete.
>
> Discontinue use of Happy Fun Ball if any of the following occurs:
>
> * Itching
> * Vertigo
> * Dizziness
> * Tingling in extremities
> * Loss of balance or coordination
> * Slurred speech
> * Temporary blindness
> * Profuse Sweating
> or
> * Heart palpitations
>
> If Happy Fun Ball begins to smoke, get away immediately. Seek shelter
> and cover head.
>
> Happy Fun Ball may stick to certain types of skin.
>
> When not in use, Happy Fun Ball should be returned to its special
> container and kept under refrigeration.
>
> Failure to do so relieves the makers of Happy Fun Ball, Wacky Products
> Incorporated, and its parent company, Global Chemical Unlimited, of any
> and all liability.
>
> Ingredients of Happy Fun Ball include an unknown glowing substance which
> fell to Earth, presumably from outer space.
>
> Do not taunt Happy Fun Ball.
>
> Happy Fun Ball comes with a lifetime guarantee.
>
> (announcer)
> Happy Fun Ball! Accept no substitutes!
Uri, have you experienced any of the above? You taunted HFB the other
day :-)
--
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$ Brent Michalski $
$ -- Perl Evangelist -- $
$ E-Mail: perlguy@technologist.com $
$ Resume: http://www.inlink.com/~perlguy $
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
------------------------------
Date: Thu, 01 Oct 1998 13:31:11 +0100
From: "Ronald Gvggel" <r.goeggel@atos-group.de>
Subject: Re: Word wrap for Perl
Message-Id: <3613760F.29CDB849@atos-group.de>
Justin Archie schrieb:
> I am looking for just some function that will take a string that is
> multiline. And I give it a delimeter of 72, the size of the string to
> word wrapping. Can anyone help me?
>
> Justin Archie
use Text::Wrap ....
HTH
Ronald
------------------------------
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 3865
**************************************
