[16571] in Perl-Users-Digest
Perl-Users Digest, Issue: 3983 Volume: 9
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Fri Aug 11 09:10:37 2000
Date: Fri, 11 Aug 2000 06:10:28 -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: <965999427-v9-i3983@ruby.oce.orst.edu>
Content-Type: text
Perl-Users Digest Fri, 11 Aug 2000 Volume: 9 Number: 3983
Today's topics:
How to list the modules i have got installed on my Linu <abel@inlander.es>
Re: How to list the modules i have got installed on my <elephant@squirrelgroup.com>
Re: How to list the modules i have got installed on my <abel@inlander.es>
Re: How to list the modules i have got installed on my (Anno Siegel)
Re: Illegal seek from backticks (David Efflandt)
Re: integers (Martien Verbruggen)
IO::Socket problem <sumengen@hotelspectra.com>
Re: IO::Socket problem <Peter.Dintelmann@dresdner-bank.com>
Re: Modules Used (Keith Calvert Ivey)
Re: multi file modules <abe@ztreet.demon.nl>
Re: multi file modules <abe@ztreet.demon.nl>
MySQL <webmaster@fpos.agava.ru>
Re: MySQL (Anthony Peacock)
Re: MySQL <debjit@oyeindia.com>
Re: Need help with simple cgi code <peterclones@hotmail.com>
Re: Newbie: can't run my test script at my Web Host <rajeev@faircomm.net>
Re: ODBC question <Peter.Dintelmann@dresdner-bank.com>
Re: Oracle connectivity using Perl <peter_gadsbyNOpeSPAM@hfcbank.co.uk.invalid>
Re: OT: Difference between a .cgi file and a .pl file? <flavell@mail.cern.ch>
Perl calls shell subnet32@yahoo.com
Re: Perl calls shell (Anno Siegel)
Perl code for a newbie!! <craig.pugsley@mimesweeper.com>
Re: Perl code for a newbie!! <christopher_j@uswest.net>
Re: Perl code for a newbie!! <craig.pugsley@mimesweeper.com>
Perl compiler and mod_perl <thomas.demuth@fernuni-hagen.de>
Re: Perl compiler and mod_perl <elephant@squirrelgroup.com>
Re: Perl mods for MySQL (Anthony Peacock)
Re: Perl, CGI, Linux and Forms, need help, urgent (David Efflandt)
Digest Administrivia (Last modified: 16 Sep 99) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Fri, 11 Aug 2000 11:27:01 GMT
From: Abel Almazan <abel@inlander.es>
Subject: How to list the modules i have got installed on my Linux?
Message-Id: <3993E2EE.3D2AB75E@inlander.es>
I want a list of perl modules installed on my Linux
How can i do??
Thanx
------------------------------
Date: Fri, 11 Aug 2000 11:35:09 GMT
From: jason <elephant@squirrelgroup.com>
Subject: Re: How to list the modules i have got installed on my Linux?
Message-Id: <MPG.13fe82581ea51b539896a5@localhost>
Abel Almazan wrote ..
>I want a list of perl modules installed on my Linux
>How can i do??
depends what you mean by 'installed' .. you can place modules literally
anywhere .. but assuming that you mean that you want a list of modules
in the standard include directories then take a look at the @INC
variable in perlvar .. and at the File::Find standard module
perldoc perlvar
perldoc File::Find
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: Fri, 11 Aug 2000 11:47:07 GMT
From: Abel Almazan <abel@inlander.es>
Subject: Re: How to list the modules i have got installed on my Linux?
Message-Id: <3993E7A8.1108A143@inlander.es>
I want a linux command line to get the names of what perl modules
in the standard include directories.
For example:
libwww....
URI-1.38...
Digest-MD5...
etc
jason wrote:
> Abel Almazan wrote ..
> >I want a list of perl modules installed on my Linux
> >How can i do??
>
> depends what you mean by 'installed' .. you can place modules literally
> anywhere .. but assuming that you mean that you want a list of modules
> in the standard include directories then take a look at the @INC
> variable in perlvar .. and at the File::Find standard module
>
> perldoc perlvar
> perldoc File::Find
>
> --
> jason -- elephant@squirrelgroup.com --
------------------------------
Date: 11 Aug 2000 12:43:07 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: How to list the modules i have got installed on my Linux?
Message-Id: <8n0scr$8ip$1@lublin.zrz.tu-berlin.de>
Abel Almazan <abel@inlander.es> wrote in comp.lang.perl.misc:
>I want a linux command line to get the names of what perl modules
>in the standard include directories.
>For example:
>
>libwww....
>URI-1.38...
>Digest-MD5...
[jeopardectomy]
perldoc perllocal
Anno
------------------------------
Date: Fri, 11 Aug 2000 06:12:48 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Illegal seek from backticks
Message-Id: <slrn8p76ao.94h.efflandt@efflandt.xnet.com>
On 10 Aug 2000 21:25:18 -0500, Aaron Baugher <abaugher@adams.net> wrote:
>I must be staring too hard at this one. Here's the chunk of
>code:
>
> my $res = `cat $base/cmyk$$.* | $base/cmyk $args`;
> if( $res ){
> print $res;
> } else {
> print "Problem doing cmyk analysis on $$: $!";
> exit;
> }
>
>The first line cats some files that were created earlier to
>a C program of mine, that takes in raw CMYK data and does
>some analysis on it, returning a few dozen bytes of text.
>When I run this, $res doesn't get the result of the shell
>command, and $! ends up containing "Illegal seek".
>
>When I run the same command at a shell prompt, it runs fine.
>If I change it to a system() call instead of backquotes, it
>also works fine, but of course the output goes to STDOUT
>instead of my variable. I'd like to catch it so I can deal
>with possible errors. It only has a problem within the
>backticks.
>
>Strangest of all, it works fine on a machine with version
>5.005_03, but has the 'illegal seek' problem under
>5.005_02. (Under 5.6, the Image::Magick->Read() function
>doesn't seem to work right, so that's out for this one.)
>
>Anyone know what's going on here? Everything I can find
>about the 'illegal seek' error talks about using the seek
>command on a pipe, but I don't do any seeks at all, unless
>they're being done implicitly by the backticks.
Since you are NOT doing any system calls that would return an error in $!,
the "illegal seek" you are getting is just an arbitrary value. In other
words $! has nothing to do with backticks.
You might want to redirect stderr to stdout so you can see if your
backtick string produces a shell error:
my $res = `cat $base/cmyk$$.* | $base/cmyk $args 2>&1`;
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
Date: 11 Aug 2000 12:30:24 GMT
From: mgjv@martien.heliotrope.home (Martien Verbruggen)
Subject: Re: integers
Message-Id: <slrn8p7s98.ee0.mgjv@martien.heliotrope.home>
On Fri, 11 Aug 2000 01:13:30 +0200,
Abe Timmerman <abe@ztreet.demon.nl> wrote:
> On Thu, 10 Aug 2000 17:07:36 +0100, King Verence
> <verence1964@hotmail.com> wrote:
>
> ...
>
> > sub encipher
> > {
> > $y = $_[0];
> > $z = $_[1];
> > $a = $_[2];
> > $b = $_[3];
> > $c = $_[4];
> > $d = $_[5];
>
> That could be writen as:
> my($y, $z, $a, $b, $c, $d) = @_;
\begin{pedantry}
No, no.. It _should_ be written like that. But it _could_ also be
written as
($y, $z, $a, $b, $c, $d) = @_;
\end{pedantry}
:)
Martien
--
Martien Verbruggen |
Interactive Media Division | Useful Statistic: 75% of the people
Commercial Dynamics Pty. Ltd. | make up 3/4 of the population.
NSW, Australia |
------------------------------
Date: Fri, 11 Aug 2000 03:42:20 -0700
From: "Baris" <sumengen@hotelspectra.com>
Subject: IO::Socket problem
Message-Id: <3993d832$1_3@goliath2.newsfeeds.com>
Hello,
I am creating a socket connection using IO::Socket
$socket = IO::Socket::INET->new(PeerAddr => "www.yahoo.com",
PeerPort => 80,
Proto => "tcp",
Type => SOCK_STREAM,
)
Now I want to access the url information at another place of my program.
Following the documentation, I only was able to access the remote ip address
using:
$socket->peerhost
method. But ip addresses are not unique identifiers for a web site... Is it
possible to access the web url somehow?
Thanks.
Baris.
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 80,000 Newsgroups - 16 Different Servers! =-----
------------------------------
Date: Fri, 11 Aug 2000 14:21:39 +0200
From: "Dr. Peter Dintelmann" <Peter.Dintelmann@dresdner-bank.com>
Subject: Re: IO::Socket problem
Message-Id: <8n0r3h$67i6@intranews.dresdnerbank.de>
Hi,
Baris schrieb in Nachricht <3993d832$1_3@goliath2.newsfeeds.com>...
>I am creating a socket connection using IO::Socket
>
> $socket = IO::Socket::INET->new(PeerAddr => "www.yahoo.com",
> PeerPort => 80,
> Proto => "tcp",
> Type => SOCK_STREAM,
> )
>
>Now I want to access the url information at another place of my program.
until now you have not requested any URL. I have not seen any
HTTP request asking for a document from www.yahoo.com in
the above code.
>Following the documentation, I only was able to access the remote ip
address
>using:
>$socket->peerhost
>method. But ip addresses are not unique identifiers for a web site... Is it
>possible to access the web url somehow?
So you do not have an IO::Socket problem as stated in the title
of your posting but you seem to need some kind of unique
identifiers. Maybe we can help you if you can give us some
further details.
Peter Dintelmann
------------------------------
Date: Fri, 11 Aug 2000 03:51:59 GMT
From: kcivey@cpcug.org (Keith Calvert Ivey)
Subject: Re: Modules Used
Message-Id: <3996769e.4923581@news.newsguy.com>
"Tom Kralidis" <tom.kralidis@ccrs.nrcan.gcDOTca> wrote:
>Gerry <gerry.morong@compaq.com> wrote
>> Is there a script, program or setting that will show you what perl modules
>> your perl script is using and where it got them from?
>
>perl -e '$"="\n";print "@INC\n"'
That won't do much to answer the first part of the question,
since it's not using any modules and, more important, @INC
doesn't contain the modules used. Gerry should look up %INC
in perlvar.
--
Keith C. Ivey <kcivey@cpcug.org>
Washington, DC
------------------------------
Date: Fri, 11 Aug 2000 13:16:19 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: multi file modules
Message-Id: <30l7pso0ecat3faqrksekhucjcmisi3h6b@4ax.com>
On 09 Aug 2000 20:46:54 -0700, Matthew Emmett <memmett@fraser.sfu.ca>
wrote:
...
> package Roster;
> use strict;
>
> use Modules::RosterUI;
>
> use Tk;
>
> sub new {
...
> # build the bits of the Roster
> build_StudentRoster ($self); # list of students on the right
> build_StudentDetails ($self); # student details on the left
> build_StudentActions ($self); # buttons under details pane
>
...
> return $self;
> }
>
> where build_StudenRoster, build_StudentDetails and
> build_StudentActions are defined in RosterUI.pm. For example,
>
> package Roster;
I take that to be:
package RosterUI;
> use strict;
>
> sub build_StudentRoster {
> my $self = shift;
>
> # blah blah
> }
>
>
> My problem is that build_*, when called with build_* (); doesn't work
> because $self isn't defined. I've tried playing around with different
> combinations of use, require and do to include RosterUI.pm in
> Roster.pm, but no success! So, I'm wondering if what I'm trying to do
> is in fact possible! Any suggestions?
It looks like the build_XXX() routines are actually object methods for
the Roster class. So RosterUI doesn't look like a new class to me.
Object/Class methods should be in the same file as the
constructors/destructors since they are part of the class.
You can then call the method like:
$self->build_StudentRoster();
There should be a reference to the actual object whenever you call an
object-method (how is perl to know on what object(instance of the class)
the call is supposed to work?).
If you want the build_XXX() routines to work on objects of any class,
your solution looks like the way to go. You might want to 'export' the
subs in RosterUI though.
Something like:
package RosterUI;
use strict;
use base 'Exporter';
use vars '@EXPORT';
@EXPORT = qw(
build_StudentRoster
build_StudentDetails
build_StudentActions
);
--
Good luck,
Abe
------------------------------
Date: Fri, 11 Aug 2000 13:47:58 +0200
From: Abe Timmerman <abe@ztreet.demon.nl>
Subject: Re: multi file modules
Message-Id: <nco7psgb7okpd4nelbflt23p9ven3hqci3@4ax.com>
On Fri, 11 Aug 2000 00:35:00 GMT, jason <elephant@squirrelgroup.com>
wrote:
> Matthew Emmett wrote ..
>
> [ attributions stripped - it's just me an' Emmett ]
...
> >Right. The main program has "use Modules::Roster;" and Roster.pm has
> >"use Modules::RosterUI;".
> >
> >./shddb (the main program)
> >./Modules/Roster.pm
> >./Modules/RosterUI.pm
>
> ok .. but is the absolute path to that top level directory explicitly
> mentioned in @INC ? .. or are you relying on the fact that the current
> directory (in the form of '.') is always in @INC ?
>
> if it's the latter then that's where the 'use Modules::RosterUI.pm' will
> break down when used inside Roster.pm .. because Roster.pm is in the
> ./Modules directory .. and so for Perl THAT directory is the current
> directory .. so it goes looking for
>
> ./Modules/Modules/RosterUI.pm
Nope, not on my system.
One way to go about this name thing is to decide if you want your
modules to be 'top-level' modules[1] or whether you want them to be
part of an 'hierarchy'[2].
In case [1] the './Modules' directory is in fact an extra library
directory, so it should be in @INC:
use lib './Modules'; #in the top-level program
use Foo;
and your modules can start with like:
package Foo;
In case [2] the '.' directory is the library directory for the Modules::
hierarchy packages and name your packages accordingly to reflect that:
package Modules::Foo;
and use like:
use Modules::Foo;
my $foo = Modules::Foo->new();
IMHO [1] is the simple solution that works fine in this case, but maybe
you will want to specify an absolute path for that library directory.
--
Good luck,
Abe
------------------------------
Date: Fri, 11 Aug 2000 14:31:32 +0400
From: Gennady Proschaev <webmaster@fpos.agava.ru>
Subject: MySQL
Message-Id: <3993D603.9B81CCD3@fpos.agava.ru>
Hi, All!
Can someboby help me?
I want to find a news group about MySQL programming or I can use it
group?
Thank in advance.
Gennady.
www.chat.ru/~genapro
www.fpos.agava.ru
mailto:webmaster@fpos.agava.ru
------------------------------
Date: 11 Aug 2000 12:01:11 GMT
From: a.peacock@chime.ucl.ac.uk (Anthony Peacock)
Subject: Re: MySQL
Message-Id: <8n0pu7$i5a$2@uns-a.ucl.ac.uk>
In article <3993D603.9B81CCD3@fpos.agava.ru>, webmaster@fpos.agava.ru says...
>
>Hi, All!
>
>Can someboby help me?
>
>I want to find a news group about MySQL programming or I can use it
>group?
Look at the mySQL web site http://www.mysql.com/
Follow the 'Documentation' link, then the 'mailing lists' link.
There is a very good (if high volume) mailing list, but no news group AFAIK.
------------------------------
Date: Fri, 11 Aug 2000 17:36:24 +0530
From: "Debjit" <debjit@oyeindia.com>
Subject: Re: MySQL
Message-Id: <8n1v12$h2e$1@news.vsnl.net.in>
Gennady Proschaev wrote in message <3993D603.9B81CCD3@fpos.agava.ru>...
>Hi, All!
>
>Can someboby help me?
There are mailing lists in www.mysql.com/www.tcx.se
>I want to find a news group about MySQL programming or I can use it
>group?
No this is Perl group
>
------------------------------
Date: Thu, 10 Aug 2000 23:26:21 -0500
From: "Peter" <peterclones@hotmail.com>
Subject: Re: Need help with simple cgi code
Message-Id: <3cLk5.78$xX3.5637@news1.mts.net>
Thanks a lot for your help guys. Got it going now with no problem.
Peter
------------------------------
Date: Fri, 11 Aug 2000 10:47:26 +0100
From: "Rajeev" <rajeev@faircomm.net>
Subject: Re: Newbie: can't run my test script at my Web Host
Message-Id: <8n0i9s$23l5$1@news.icl.se>
Hi Guillaume
I tried your script in my Unix server by changing your first line to
#!/usr/bin/perl -w and it works.
I suggest you check
a. is perl available in the path
b. permissions on the script (755 in Unix)
Regards
Rajeev
------------------------------
Date: Fri, 11 Aug 2000 14:52:37 +0200
From: "Dr. Peter Dintelmann" <Peter.Dintelmann@dresdner-bank.com>
Subject: Re: ODBC question
Message-Id: <8n0stg$63t4@intranews.dresdnerbank.de>
Hi,
DM schrieb in Nachricht <3992EFFF.2CBB1281@home.com>...
>How do you install Win32::ODBC?
maybe you should have a look at http://www.roth.net/perl/odbc/
Best regards,
Peter Dintelmann
------------------------------
Date: Fri, 11 Aug 2000 00:53:49 -0700
From: Peter_Gadsby <peter_gadsbyNOpeSPAM@hfcbank.co.uk.invalid>
Subject: Re: Oracle connectivity using Perl
Message-Id: <00458ec2.573ebc96@usw-ex0102-014.remarq.com>
Thanks Erik, at last something to look at ..... :-)
Where is the best place to get DBI/DBD::Oracle, and is it easy
to install??
Thanks
Peter_Gadsby@hfcbank.co.uk
-----------------------------------------------------------
Got questions? Get answers over the phone at Keen.com.
Up to 100 minutes free!
http://www.keen.com
------------------------------
Date: Fri, 11 Aug 2000 13:59:13 +0200
From: "Alan J. Flavell" <flavell@mail.cern.ch>
Subject: Re: OT: Difference between a .cgi file and a .pl file?
Message-Id: <Pine.GHP.4.21.0008111342570.9361-100000@hpplus03.cern.ch>
On Fri, 11 Aug 2000, Tim Hammerquist wrote:
> > Well, there's the Mac. And the Apollo was also like this, if my
> > memory isn't playing tricks (although it also had some kind of
> > compatibility mode with regular unix). I don't doubt there are others
> > I'm not aware of.
> [..] I haven't really heard much about Apollo at all.
Don't worry about it, you're only about a decade too late ;-)
The Apollo Domain OS was a somewhat quirky, generally unix-like,
networked operating system, but with a number of unique features, such
as its own networked file system. Apollo was bought-out by HP in (the
archives say) 1989.
> How does the Mac do this?
With respect, going into that in any detail would take us too far off
topic for this group. Suffice it to say that Mac file handling is
different in a number of ways - the specific point here is that the
file system directory includes a field for specifying a four-character
file-type, independent of any evidence in the visible filename.
Native Mac applications will fill in this field appropriately..
A web search reveals (small world!) that my old friend Robin Walker
wrote a sort of FAQ about importing non-Mac files into a Mac
environment, with suitable mappings from filename extensions into the
Mac filetype fields, see (beware - line wrapping)
<URL: http://wuarchive.wustl.edu/systems/mac/umich.edu/misc/
documentation/exttotypemappings.txt >
cheers
------------------------------
Date: Fri, 11 Aug 2000 12:09:18 GMT
From: subnet32@yahoo.com
Subject: Perl calls shell
Message-Id: <8n0qdb$dqo$1@nnrp1.deja.com>
Hello Gurus:
On a Linux 2.2x box running Perl5.005, I need to have a perl script call
a Bourne shell.
Shouldn't
{print `/home/scripts/shell`;}
in my perl script do the trick and execute the shell ?
Thanks for any pointers
James Murray
Sent via Deja.com http://www.deja.com/
Before you buy.
------------------------------
Date: 11 Aug 2000 13:00:09 -0000
From: anno4000@lublin.zrz.tu-berlin.de (Anno Siegel)
Subject: Re: Perl calls shell
Message-Id: <8n0tcp$8nj$1@lublin.zrz.tu-berlin.de>
<subnet32@yahoo.com> wrote in comp.lang.perl.misc:
>Hello Gurus:
>
>On a Linux 2.2x box running Perl5.005, I need to have a perl script call
>a Bourne shell.
>
>Shouldn't
>
> {print `/home/scripts/shell`;}
>
>in my perl script do the trick and execute the shell ?
You sure managed to squeeze a lot of errors in a single line.
The {} around the statement do nothing useful.
Putting an interactive program in backticks isn't going work well.
Backticks collect all output of the program until it finishes running.
You won't even be able to see the shell prompt, or the echo of your
commands, not to mention their output. Only when you leave the
shell, with a final "exit", say, all the output will be handed to
print and shown on your screen.
While it isn't impossible to have a bourne shell under the name of
shell in /home/scripts, this would be an unusual arrangement. Normally,
the bourne shell is /bin/sh.
If you want to embed an interactive run of something in your perl
program, use system(). See perldoc -f system.
Anno
------------------------------
Date: Fri, 11 Aug 2000 11:08:03 +0100
From: "Craig Pugsley" <craig.pugsley@mimesweeper.com>
Subject: Perl code for a newbie!!
Message-Id: <7gQk5.570$iE4.5307@news2-win.server.ntlworld.com>
I'm looking for some Perl code to chop the first line off a large collection
of separate text files. The code should be give the path of a directory
containing the (large number of) files, it should then strip the nth line
out of the file, and replace the original file. It shouldn't copy the file
(if this can be helped!), as I'm going to be dealing with in excess of 600
separate text files!!!
Thanks to all who can help.
CraigP
------------------------------
Date: Fri, 11 Aug 2000 04:47:11 -0700
From: "Christopher M. Jones" <christopher_j@uswest.net>
Subject: Re: Perl code for a newbie!!
Message-Id: <ZIRk5.17$WW5.35151@news.uswest.net>
"Craig Pugsley" <craig.pugsley@mimesweeper.com> wrote:
> I'm looking for some Perl code to chop the first line off a large
collection
> of separate text files. The code should be give the path of a directory
> containing the (large number of) files, it should then strip the nth line
> out of the file, and replace the original file. It shouldn't copy the file
> (if this can be helped!), as I'm going to be dealing with in excess of 600
> separate text files!!!
#!/usr/bin/perl
$basedir = ARGV[0];
$searchpattern = "*.txt";
$linenum = $ARGV[1];
while(<$basedir/$searchpattern>)
{
$filename = $_;
unless ( open (FILE, "<$filename") )
{ print "Unable to open '$filename' for reading.\n"; next; }
@file = <FILE>;
close (FILE);
delete ($file[$linenum]);
unless ( open (FILE, ">$filename") )
{ print "Unable to open '$filename' for writing.\n"; next; }
print FILE @file;
close (FILE);
}
print "Done.\n";
------------------------------
Date: Fri, 11 Aug 2000 13:23:47 +0100
From: "Craig Pugsley" <craig.pugsley@mimesweeper.com>
Subject: Re: Perl code for a newbie!!
Message-Id: <nfSk5.835$iE4.8548@news2-win.server.ntlworld.com>
Thanks very much indeed. That will really help get me sorted.
If you had to write the code by hand, then THANKS!!!
If not, then THANKS ANYWAY!!!
CraigP
"Christopher M. Jones" <christopher_j@uswest.net> wrote in message
news:ZIRk5.17$WW5.35151@news.uswest.net...
>
> "Craig Pugsley" <craig.pugsley@mimesweeper.com> wrote:
> > I'm looking for some Perl code to chop the first line off a large
> collection
> > of separate text files. The code should be give the path of a directory
> > containing the (large number of) files, it should then strip the nth
line
> > out of the file, and replace the original file. It shouldn't copy the
file
> > (if this can be helped!), as I'm going to be dealing with in excess of
600
> > separate text files!!!
>
>
> #!/usr/bin/perl
>
> $basedir = ARGV[0];
> $searchpattern = "*.txt";
> $linenum = $ARGV[1];
>
> while(<$basedir/$searchpattern>)
> {
> $filename = $_;
> unless ( open (FILE, "<$filename") )
> { print "Unable to open '$filename' for reading.\n"; next; }
> @file = <FILE>;
> close (FILE);
>
> delete ($file[$linenum]);
>
> unless ( open (FILE, ">$filename") )
> { print "Unable to open '$filename' for writing.\n"; next; }
> print FILE @file;
> close (FILE);
> }
>
> print "Done.\n";
>
>
>
------------------------------
Date: Fri, 11 Aug 2000 10:51:02 +0200
From: Thomas Demuth <thomas.demuth@fernuni-hagen.de>
Subject: Perl compiler and mod_perl
Message-Id: <3993BE76.85741422@fernuni-hagen.de>
Hello,
does anybody know if there is a way to use the perl compiler with
Apache/mod_perl, especially to user mod_perl with compiled perl sources
or byte code?
My interest is not mainly to increase speed, but to
sell a product without giving the source code away.
Thanks a lot for your help,
Thomas
------------------------------
Date: Fri, 11 Aug 2000 10:12:28 GMT
From: jason <elephant@squirrelgroup.com>
Subject: Re: Perl compiler and mod_perl
Message-Id: <MPG.13fe6ef72b8bf2709896a2@localhost>
[ comp.infosystems.www.servers.unix removed ]
Thomas Demuth wrote ..
>does anybody know if there is a way to use the perl compiler with
>Apache/mod_perl, especially to user mod_perl with compiled perl sources
>or byte code?
>My interest is not mainly to increase speed, but to
>sell a product without giving the source code away.
you might find some joy in the answer to "How can I hide the source for
my Perl program?" in perlfaq3
perldoc -q "hide the source"
--
jason -- elephant@squirrelgroup.com --
------------------------------
Date: 11 Aug 2000 11:55:13 GMT
From: a.peacock@chime.ucl.ac.uk (Anthony Peacock)
Subject: Re: Perl mods for MySQL
Message-Id: <8n0pj1$i5a$1@uns-a.ucl.ac.uk>
In article <8muc8a$jj6$1@nnrp1.deja.com>, <Unknown> says...
>
>Thanks for the info, I have one more question though. Everytime I try
>to untar the Mysql bin file it tells my it has a checksum error. After
>looking around I found notes stating that I needed to load GNUtar. I
>have since then installed it, but still have problems untarring the
>file. Does anyone know how to correct this ? Thanks. Yamar
<SNIP>
That is often caused by copying the file (ftp or http) using ASCII mode
instead of binary mode.
------------------------------
Date: Fri, 11 Aug 2000 06:31:51 +0000 (UTC)
From: efflandt@xnet.com (David Efflandt)
Subject: Re: Perl, CGI, Linux and Forms, need help, urgent
Message-Id: <slrn8p77eg.94h.efflandt@efflandt.xnet.com>
On Thu, 10 Aug 2000 10:35:31 +0200, Erdal Sarinc <erdal@khio.no> wrote:
>Hi,
>
>I need help to solve an attachment problem due to a application form.
>
>I want people/users to attach their files to the application form, just
>as you do at www.hotmail.com but i cant figure out how to this.
>I need to know the code beyond these scripts: attach, doattach
In your console or xterm type: perldoc CGI
Use the CGI module to create and process the form and file upload, and
grab the MIME::Lite module from your favorite CPAN site (or
http://www.perl.com/) to e-mail the uploaded attachment. Once you install
MIME::Lite you can read about it with 'perldoc MIME::Lite'.
--
David Efflandt efflandt@xnet.com http://www.de-srv.com/
http://www.autox.chicago.il.us/ http://www.berniesfloral.net/
http://hammer.prohosting.com/~cgi-wiz/ http://cgi-help.virtualave.net/
------------------------------
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 3983
**************************************
