[11486] in Perl-Users-Digest
Perl-Users Digest, Issue: 5086 Volume: 8
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Mar 8 09:07:21 1999
Date: Mon, 8 Mar 99 06:00:21 -0800
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 8 Mar 1999 Volume: 8 Number: 5086
Today's topics:
.ASP Post using LWP unsolved. <Dikheel@ResumeGuide.com>
Access file in internet using perl (Anonymous)
Re: Access file in internet using perl <ebohlman@netcom.com>
Re: cgi and forms <fty@utk.edu>
Continue Script After Error? pault2000@my-dejanews.com
Re: Continue Script After Error? <zenin@bawdycaste.org>
Re: Converting a 64-bit int to hex? <sb@sdm.de>
dbm open <bwb@dowebpages.com>
FAQ 3.1: How do I do (anything)? <perlfaq-suggestions@perl.com>
FAQ 3.2: How can I use Perl interactively? <perlfaq-suggestions@perl.com>
Re: Getting rid of ^M <andrewf@beausys.demon.co.uk>
HELP: perl on OS/390 <laura_montorio@it.ibm.com>
How to get localized directory names on Windows <marcg@mendez.nl>
MS ACCESS database with perl <nicolasm@luon.be>
Re: OLE, DBI-ODBC conflicts? (Steve Grantz)
Re: print << "(END)" ? <Philip.Newton@datenrevision.de>
Problems with referencing array slamda@hotmail.com
Re: Serial Communications using Perl (Bbirthisel)
Re: Seriously confused about subscripts <Philip.Newton@datenrevision.de>
SRC: ps in perl for linux, with tree indentation <tchrist@mox.perl.com>
Re: system()/print question <Philip.Newton@datenrevision.de>
Re: system()/print question (Bart Lateur)
test do not read this message <helpdesk@introweb.nl>
Upload: 0 Bytes <ntogmi@abs.ascom.ch>
Re: Upload: 0 Bytes <Tony.Curtis+usenet@vcpc.univie.ac.at>
Re: Upload: 0 Bytes <ntogmi@abs.ascom.ch>
Re: Upload: 0 Bytes <Tony.Curtis+usenet@vcpc.univie.ac.at>
Special: Digest Administrivia (Last modified: 12 Dec 98 (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 08 Mar 1999 04:00:44 -0500
From: Dikheel Al-Dikheel <Dikheel@ResumeGuide.com>
To: jamesht@idt.net
Subject: .ASP Post using LWP unsolved.
Message-Id: <36E391BC.15E1695A@ResumeGuide.com>
"jamesht" thanks for your help on (LWP: Passing variables to an ASP
document), but remember we are dealing with a .asp documents not .cgi
:-)
Unlike cgi scripts, .asp documents act diffrently when someone tries to
invoke input by passing it through the URL. Programs seem to reload in
some occasions or cause a server error.
Here is an example with only two inputs,
http://back1.headhunter.net/scripts/UserNew.asp?DisclaimerOK=1&Submit=I+Agree
Try pasting the URL, and you will see that the page reloads it's self.
Nothing seems to happen?!
Now try:
http://back1.headhunter.net/scripts/UserNew.asp
when you submit by clicking on "I Agree" you get sent to the next step;
now why is that?
Please use the above URL or provide a refrence to one you may use in
solving this problem.
If anyone knows of a solution to such problem, I will be greatful, as
I'm sure many other programmers working on LWP, would too if they have
or will reach this point.
------------------------------
Date: 8 Mar 1999 09:07:01 GMT
From: cs_mch@uxmail.ust.hk (Anonymous)
Subject: Access file in internet using perl
Message-Id: <7c03vl$6qo@ustsu10.ust.hk>
Hi,
I am new in perl.
How can I access files in the internet with perl.
I just know how to access file locally.
Urgent!
Thx!
------------------------------
Date: Mon, 8 Mar 1999 09:51:27 GMT
From: Eric Bohlman <ebohlman@netcom.com>
Subject: Re: Access file in internet using perl
Message-Id: <ebohlmanF89sps.7K1@netcom.com>
Anonymous <cs_mch@uxmail.ust.hk> wrote:
: How can I access files in the internet with perl.
: I just know how to access file locally.
Try the LWP module, and possibly also Net::FTP.
------------------------------
Date: Mon, 08 Mar 1999 08:28:55 -0500
From: Jay Flaherty <fty@utk.edu>
Subject: Re: cgi and forms
Message-Id: <36E3D097.3AFDA3CC@utk.edu>
mmueller007@hotmail.com wrote:
>
> In article <7bttbh$r9q$1@nnrp1.dejanews.com>,
> jaspo@my-dejanews.com wrote:
> > Hello,
> >
> > I am using forms in html and a perl cgi script. however, on the web server,
> > when I hit submit, the cgi script code shows up in the browser window? any
> > ideas!!!
> > thanks
> > jas
> >
> You are probably using the following:
> <form method="get" ...
> instead use
> <form method="post" ...
> That should take care of it.
Uhh...no. The area on the server the users CGI script is located is not
set up correctly to execute the script. Instead, it thinks it's just a
text script and displays it. He needs to talk to the server admin to
have the server properly configured, or more likely he needs to find out
where the proper directory is to install CGI apps and weather he has
permission to do so.
Take care of your shoes...jay
------------------------------
Date: Mon, 08 Mar 1999 12:53:29 GMT
From: pault2000@my-dejanews.com
Subject: Continue Script After Error?
Message-Id: <7c0h87$tuu$1@nnrp1.dejanews.com>
Hello Everyone,
I am pretty new to Perl and I would appreciate some advice on a script I am
writing - it runs through a directory tree and makes changes to html files
using a regular expression. The script works fine but if it comes across a
corrupt html file (e.g. one which has not been ftp'd properly and has ended
up as zero k) the script grinds to a halt. Could anyone advise me as to how
to get the script to continue if a problem arises.
I have pasted a relevant portion of the script below.
Thank you very much for any help or advice.
# make the changes
foreach $file (sort { -M "$dir_path/$a" <=> -M "$dir_path/$b" } @files) {
$old="$dir_path/$file";
$new="$dir_path/$file.bak";
rename($old, $new) or die "can't rename $old to $new: $!";
open(BAK, "< $new") or die "can't open bak: $!";
#read whole file
undef ($/);
$bakup=<BAK>;
#declare regular expression $re =
'(.+?<\/HEAD>)(.+?<BODY>)(.+?<H1>)(.+?)(<\/H1>)(.+?<\/I>)(\d\d\/\d\d\/\d\d)(.
+?< \/H2>)(.+?)(<\/BODY>.+)';
#now split up the html file or give an error
####this is where I need advice - how can I get the script to continue after
an error#########
$bakup=~/$re/is or die "re messed up";
#make sense of the split
$header1 = $1;
$bodytag2 = $2;
$h1open = $3;
$title = $4;
$h1close = $5;
$datetext = $6;
$datenum = $7;
$semisource = $8;
$story = $9;
$closer = $10;
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 08 Mar 1999 13:37:14 GMT
From: Zenin <zenin@bawdycaste.org>
Subject: Re: Continue Script After Error?
Message-Id: <920900448.73263@thrush.omix.com>
[posted & mailed]
pault2000@my-dejanews.com wrote:
>snip<
: ####this is where I need advice - how can I get the script to continue after
: an error#########
:
: $bakup=~/$re/is or die "re messed up";
change "die" to "warn" here and it will simply give you the message
but continue anyway.
See `perldoc -f warn'
--
-Zenin (zenin@archive.rhps.org) From The Blue Camel we learn:
BSD: A psychoactive drug, popular in the 80s, probably developed at UC
Berkeley or thereabouts. Similar in many ways to the prescription-only
medication called "System V", but infinitely more useful. (Or, at least,
more fun.) The full chemical name is "Berkeley Standard Distribution".
------------------------------
Date: 8 Mar 1999 13:30:04 GMT
From: Steffen Beyer <sb@sdm.de>
Subject: Re: Converting a 64-bit int to hex?
Message-Id: <7c0jcs$7b6$1@solti3.sdm.de>
In article <36D16E1A.92AB444@ocegr.fr>,
Stiphane Barizien <stephane.barizien@ocegr.fr> wrote:
> Probably a dummy's question, or I'm gonna be RTFMed on that one, but
> never mind:
> How do I convert a 64-bit integer to a hex string, and vice-versa?
Use the module "Bit::Vector" - see my sig below for URLs where you can
find it.
Converting to/from hex is one of the modules easiest feats... :-)
Hope this helps.
I guess this module should be mentioned in the FAQs by now, but I'm
afraid it isn't...
Yours,
--
Steffen Beyer <sb@engelschall.com>
http://www.engelschall.com/u/sb/download/ (Free Perl and C Software
http://www.perl.com/CPAN/authors/id/STBEY/ for Download)
New: Build'n'Play 2.1.0 (all-purpose Unix batch installation tool)
http://www.oreilly.de/catalog/perlmodger/bnp.html
------------------------------
Date: Mon, 08 Mar 1999 04:04:57 -0600
From: Bill Binkley <bwb@dowebpages.com>
Subject: dbm open
Message-Id: <36E3A0C9.84E9D321@dowebpages.com>
Does anyone know why this tie will not create the DBM file, but will
work OK
after the file is created.
$vdb = tie %vendor, DB_File, $vendb, O_RDWR|O_CREAT, 0700 || die "Could
not open DBM file $vendb : $!\n";
untie %vendor;
This dbmopen works in all respects.
dbmopen (%vendor, $vendb, 0700) || die "Can not open the DBM database
$vendb : $!\n";
dbmclose %vendor;
Thanks
--
Bill Binkley
Software Composers, Inc.
http://www.dowebpages.com
Go to this URL for JavaScript examples
and sample code. For JavaScript at it's
best see the "European Tour". If you
have a question about the examples, put
it in the comments of the visitors form.
------------------------------
Date: 8 Mar 1999 02:12:49 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 3.1: How do I do (anything)?
Message-Id: <36e39491@csnews>
(This excerpt from perlfaq3 - Programming Tools
($Revision: 1.33 $, $Date: 1998/12/29 20:12:12 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq3.html
if your negligent system adminstrator has been remiss in his duties.)
How do I do (anything)?
Have you looked at CPAN (see the perlfaq2 manpage)? The chances
are that someone has already written a module that can solve your
problem. Have you read the appropriate man pages? Here's a brief
index:
Basics perldata, perlvar, perlsyn, perlop, perlsub
Execution perlrun, perldebug
Functions perlfunc
Objects perlref, perlmod, perlobj, perltie
Data Structures perlref, perllol, perldsc
Modules perlmod, perlmodlib, perlsub
Regexps perlre, perlfunc, perlop, perllocale
Moving to perl5 perltrap, perl
Linking w/C perlxstut, perlxs, perlcall, perlguts, perlembed
Various http://www.perl.com/CPAN/doc/FMTEYEWTK/index.html
(not a man-page but still useful)
the perltoc manpage provides a crude table of contents for the
perl man page set.
--
"It's okay to be wrong temporarily." --Larry Wall
------------------------------
Date: 8 Mar 1999 04:43:03 -0700
From: Tom Christiansen <perlfaq-suggestions@perl.com>
Subject: FAQ 3.2: How can I use Perl interactively?
Message-Id: <36e3b7c7@csnews>
(This excerpt from perlfaq3 - Programming Tools
($Revision: 1.33 $, $Date: 1998/12/29 20:12:12 $)
part of the standard set of documentation included with every
valid Perl distribution, like the one on your system.
See also http://language.perl.com/newdocs/pod/perlfaq3.html
if your negligent system adminstrator has been remiss in his duties.)
How can I use Perl interactively?
The typical approach uses the Perl debugger, described in the
perldebug(1) man page, on an ``empty'' program, like this:
perl -de 42
Now just type in any legal Perl code, and it will be immediately
evaluated. You can also examine the symbol table, get stack
backtraces, check variable values, set breakpoints, and other
operations typically found in symbolic debuggers.
--
"We all agree on the necessity of compromise. We just can't agree on
when it's necessary to compromise."
--Larry Wall in <1991Nov13.194420.28091@netlabs.com>
------------------------------
Date: Mon, 8 Mar 1999 11:24:11 +0000
From: Andrew Fry <andrewf@beausys.demon.co.uk>
Subject: Re: Getting rid of ^M
Message-Id: <ithn+IAbN742Ew3X@beausys.demon.co.uk>
In article <36E193C3.6F9C226F@his.com>, Steve Palincsar
<palincss@his.com> writes
>The ^M in question is the carriage return
>character. This is the perfect job for
>in-place editing. I use the following one-liner
>at work a lot:
>
>perl -pi -e 's|\r||g;' filename
>
>(If you are feeling unconfident, you can use
>-pi.bak and end up with a bunch of old
>backup files...)
>
>Of course, there are two good ways to stop this
>at the source. If you're getting DOS files onto
>a unix system by means of ftp, use ascii mode
>and those pesky \r's will vanish by themselves.
>If you're doing as I sometimes do, using mcopy
>to transfer files on a floppy from my DOS to my
>linux box, try using pkzip on them first.
...or use 'mcopy -t ...'
---
Andrew Fry
"Time flies like an arrow. Fruit flies like a banana". (Groucho Marx).
------------------------------
Date: Mon, 8 Mar 1999 10:55:39 +0100
From: "Laura" <laura_montorio@it.ibm.com>
Subject: HELP: perl on OS/390
Message-Id: <7c05ca$2tc0$1@news.uk.ibm.com>
I have a Windows 95 machine with which I work via telnet on a OS/390 host on
which I need to install the Perl interpreter.
1. I downloaded the Perl Binaries (EBCDIC)
perl-5_004_03_os390_bin_tar.Z
from http://www.mks.com/s390/gnu/register.htm
2. I created the directory /usr/local where I copied the perl compressed
file
3. I decompressed the file with the command:
uncompress perl-5_004_03_os390_bin_tar.Z
4. I extracted the files and created the directories structure with the
command:
tar -xvf perl-5_004_03_os390_bin_tar
But it looks not enough, infact when I try to run a perl script it doesn't
work.
Does someone know what else I have to do to configure correctly the perl
interpreter?
Thank you
my e-mail is laura_montorio@it.ibm.com
------------------------------
Date: Mon, 8 Mar 1999 10:26:21 +0100
From: "DMA" <marcg@mendez.nl>
Subject: How to get localized directory names on Windows
Message-Id: <7c05c2$arf$1@news.IAEhv.nl>
Hi,
I need to write a perl script that runs on different language versions of
Windows. Is there a way to get the localized names of some of the special
directories, like for example "My Documents" or "Program Files". I did some
searching through the registry and dejanews etc. but came up with nothing.
tia
<Marc/>
------------------------------
Date: Mon, 8 Mar 1999 14:43:57 +0100
From: "Nicolas Malfeyt" <nicolasm@luon.be>
Subject: MS ACCESS database with perl
Message-Id: <7c0k8o$rjc$1@xenon.inbe.net>
Is it possible and how hard would it be to send some kind of SQL query to an
MS ACCESS database residing on your webserver with Perl, and then using the
results in your web application?
Thanks,
Nicolas Malfeyt
nicolasm@luon.com
------------------------------
Date: Mon, 08 Mar 1999 09:46:36 GMT
From: sgrantz@visi.com (Steve Grantz)
Subject: Re: OLE, DBI-ODBC conflicts?
Message-Id: <00NE2.388$to3.19017@ptah.visi.com>
Lynn Wilson (lynn@swcp.com) wrote:
: If I open the spreadsheet first and leave it open, the 'connect' operator with
: the ODBC fails. It works fine if I close the OLE prior to opening the ODBC.
No offense intended, but since there is no code posted I have to ask:
Are you using the same variable for the OLE and ODBC object handles?
--
More of Steve Grantz's Blather at 2 * McQ != McQ
http://www.visi.com/~sgrantz 0.5 * McQ == McQ
------------------------------
Date: Mon, 08 Mar 1999 13:53:36 +0100
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: print << "(END)" ?
Message-Id: <36E3C850.27529A75@datenrevision.de>
Ketan Patel wrote:
>
> When I'm printing some HTML, I usually do:
>
> print << "(END)";
Do you mean print <<"(END)"; ? AFAIK, you can't have spaces
after the << which starts a here document. (At least, perlfaq4 implies
that having spaces there may be a reason why here documents "fail".)
Cheers,
Philip
------------------------------
Date: Mon, 08 Mar 1999 12:46:40 GMT
From: slamda@hotmail.com
Subject: Problems with referencing array
Message-Id: <7c0grf$tqc$1@nnrp1.dejanews.com>
Hi, I'm currently reading in a file, and UNPACKing each line into an array.
I want to create an array of these arrays - my current code is:
$created=localtime(time); open(MYFILE,"c:\\listbroker\\database
text\\lisdms.txt") || die "error openinig file"; print("Starting To Unpack
Data File: $created \n"); while($data=<MYFILE>) { $data=~s/\234/&\#163;/g;
#replace pound signs with HTML entity code $data=~s/\n//g;
#removes newlines from text line
$data=~s/\'/&\#39;/g; #replace apostrophe with HTML
entity code
push
(@hello,\@{unpack("A6A40A7A5A8A6A12A6A10A7A6A2A2A6A7A5A7A6A10A6A10A6A9A7A11A5
A10 A6A6A2",$data)}); } close(MYFILE); $created=localtime(time);
print("Finished Unpacking data file: $created\n\n"); print $hello[0],"\n";
print @$hello[0];
My problem is with the last two print statements: The first displays what I
would expect...tells me the address of the first refernce and it's
type...however, the second print statement doesn't print anything (I am
expecting to retrieve the list I entered with the unpack statement).
Where have I gone wrong?
THanks in advance
Ian Dash
-----------== Posted via Deja News, The Discussion Network ==----------
http://www.dejanews.com/ Search, Read, Discuss, or Start Your Own
------------------------------
Date: 8 Mar 1999 13:50:29 GMT
From: bbirthisel@aol.com (Bbirthisel)
Subject: Re: Serial Communications using Perl
Message-Id: <19990308085029.12158.00005367@ng-fq1.aol.com>
Hi Andrew:
>wrnelson@my-dejanews.com writes:
>
>> Also, I'd like to use an I80X86 running Linux if possible. Is
>>there a way to handle serial communication under perl?
>>Where could I find
>>more information on this? Thanks!
>
>Look for documentation on Unix termios library. In Perl, it is part of
>the standard POSIX module. If the termios man page makes little sense,
>take a look at the book "Advanced Unix Programming", by W R Stevens.
>
><URL:http://cseng.aw.com/bookdetail.qry?ISBN=0-201-56317-7&ptype=1090>
>
>The examples are in C, so you've have to translate its concepts to
>perl yourself.
The Serial-Programming-HOWTO (in the linux docs) is easier to
follow than the termios man page. Some of the HOWTO examples
have been implemented in perl code - I don't have the links handy
at the moment, but I could find them if you'd like. At least you'd have
a starting place.
-bill
Making computers work in Manufacturing for over 25 years (inquiries welcome)
------------------------------
Date: Mon, 08 Mar 1999 12:51:58 +0100
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: Seriously confused about subscripts
Message-Id: <36E3B9DE.8943C82C@datenrevision.de>
John Chris Wren wrote:
>
> And I'm under the impression that using s/// requires that the data you want
> to substitute to be in $/.
The default place for matching and substitution is $_, not $/; however,
as others have already said, you can apply matching and substitution
(and translation, tr/// or y///) to other strings with the =~ operator.
Cheers,
Philip
------------------------------
Date: 8 Mar 1999 06:27:27 -0700
From: Tom Christiansen <tchrist@mox.perl.com>
Subject: SRC: ps in perl for linux, with tree indentation
Message-Id: <36e3d03f@csnews>
If you're on Linux, you may enjoy this.
#!/usr/bin/perl -w
# ptl - ps tree printer for linux
# tchrist@perl.com
# 9 October 1997
use strict;
my $PROCDIR = "/proc";
my %Pidinfo;
fetch_proc_info();
visit(1);
exit;
###############
sub fetch_proc_info {
chdir $PROCDIR || die "can't cd to $PROCDIR: $!";
opendir(PROC, ".") || die "can't opendir . ($PROCDIR): $!";
my $pid;
while ( defined($pid = readdir(PROC))) {
next unless $pid =~ /^\d+$/;
my $statfile = "$PROCDIR/$pid/status";
unless (open(STATUS, $statfile)) {
warn "can't open $statfile: $!";
next;
}
while (<STATUS>) {
next unless /^([^:]+):\s*(.*)$/;
$Pidinfo{$pid}{$1} = first($2);
push @{$Pidinfo{$2}{child_procs}}, $pid if $1 eq 'PPid';
}
}
}
BEGIN {
# static vars for &visit
my $Depth = 0;
sub visit {
my $pid = shift;
printf "%-8s %5d %6s %1s %s%s\n",
&uid($Pidinfo{$pid}{Uid}),
$pid, $Pidinfo{$pid}{VmRSS} || 0,
$Pidinfo{$pid}{State},
" " x $Depth,
&cmdline($pid);
return unless $Pidinfo{$pid}{child_procs};
$Depth++;
for my $kid ( @{$Pidinfo{$pid}{child_procs}} ) { visit($kid) }
--$Depth;
}
}
BEGIN {
# static vars for &uid
my %uidcache;
sub uid {
my $uid = shift;
unless (defined $uidcache{$uid}) {
$uidcache{$uid} = getpwuid($uid) || "#$uid";
}
return $uidcache{$uid};
}
}
sub cmdline {
my $pid = shift;
my $cmdfile = "$PROCDIR/$pid/cmdline";
my $line;
unless ( open(CMD, $cmdfile) ) {
warn "can't read $cmdfile: $!";
} else {
if (defined($line = <CMD>)) {
$line =~ s/[\s\0]+$//;
$line =~ s/\0/ /g;
}
close CMD;
}
if (!defined $line) {
$line = $Pidinfo{$pid}{Name} || "[NONE]";
$line = "($line)";
}
return $line;
}
sub first {
return '' unless defined $_[0];
my $word = '';
$word = (split ' ', $_[0])[0] ;
return $word;
}
--
Common sense is the collection of prejudices acquired by age 18.
--Einstein
------------------------------
Date: Mon, 08 Mar 1999 12:48:11 +0100
From: Philip Newton <Philip.Newton@datenrevision.de>
Subject: Re: system()/print question
Message-Id: <36E3B8FB.6C949C0@datenrevision.de>
Tony Curtis wrote:
>
> You're not autoflushing STDOUT, perldoc IO::Handle.
or perldoc perlvar, and look for $| .
Something like select((select(OUT),$|=1)[0]) should work, too.
TMTOWTDI.
> But why use an external process when perl can do it
> already?
>
> perldoc -f localtime
> perldoc POSIX (strftime).
Because the time was just an example. What he really wants to do is
something else.
Cheers,
Philip
------------------------------
Date: Mon, 08 Mar 1999 12:05:04 GMT
From: bart.lateur@skynet.be (Bart Lateur)
Subject: Re: system()/print question
Message-Id: <36e3bca1.10718723@news.skynet.be>
Jake wrote:
>print OUT "---- Beginning of Today's date ----\n";
> system("/usr/bin/date >>$OUTFILE");
>print OUT "---- End of Today's date ----\n";
>
>The results end up looking like this:
>
>Fri Mar 5 11:23:23 EST 1999
>---- Beginning of Today's date ----
>---- End of Today's date ----
>
>How can I get it to look like this:
>
>---- Beginning of Today's date ----
>Fri Mar 5 11:23:23 EST 1999
>---- End of Today's date ----
print OUT "---- Beginning of Today's date ----\n";
print OUT `/usr/bin/date`;
print OUT "---- End of Today's date ----\n";
Bart.
------------------------------
Date: Mon, 08 Mar 1999 14:09:40 +0100
From: Helpdesk IntroWeb <helpdesk@introweb.nl>
Subject: test do not read this message
Message-Id: <36E3CC14.C6AD04FB@introweb.nl>
testing
------------------------------
Date: Mon, 08 Mar 1999 14:03:11 +0100
From: Toggweiler Mike <ntogmi@abs.ascom.ch>
Subject: Upload: 0 Bytes
Message-Id: <36E3CA8E.975541B1@abs.ascom.ch>
Hi
Ih habe ein Problem beim Uploaden von irgendwelchen Dateien. Wenn ich
diese im Netscape mit folgender Routine uploade, funktionert es. Sobald
ich aber IE (3 oder 4) benutze, werden zwar die Dateien kreiert, aber
keine Daten darin gespeichert (0 Bytes).
Danke f|r Eure Hilfe
open(WRITEFILE,">$link_file");
binmode(WRITEFILE);
#Read the file from the HD
while(read($open_file,$buffer,1024)){
print WRITEFILE $buffer;
}
close $open_file;
close WRITEFILE;
DoG
------------------------------
Date: 08 Mar 1999 14:17:07 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Upload: 0 Bytes
Message-Id: <83bti4qfxo.fsf@vcpc.univie.ac.at>
Re: Upload: 0 Bytes, Toggweiler
<ntogmi@abs.ascom.ch> said:
Toggweiler> Hi Ih habe ein Problem beim Uploaden von
Toggweiler> irgendwelchen Dateien. Wenn ich diese im
Toggweiler> Netscape mit folgender Routine uploade,
Toggweiler> funktionert es. Sobald ich aber IE (3
Toggweiler> oder 4) benutze, werden zwar die Dateien
Toggweiler> kreiert, aber keine Daten darin
Toggweiler> gespeichert (0 Bytes).
Toggweiler> Danke f|r Eure Hilfe
Toggweiler> open(WRITEFILE,">$link_file");
unchecked open.
You cannot run perl programs in a browser. Such
programs run on the *server*.
This has nothing to do with perl per se.
You should probably ask this question on a group
related to the server you are using.
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: Mon, 08 Mar 1999 14:26:15 +0100
From: Toggweiler Mike <ntogmi@abs.ascom.ch>
Subject: Re: Upload: 0 Bytes
Message-Id: <36E3CFF7.81972B04@abs.ascom.ch>
Why does it work with Netscape?
DoG
Tony Curtis wrote:
> unchecked open.
>
> You cannot run perl programs in a browser. Such
> programs run on the *server*.
>
> This has nothing to do with perl per se.
>
> You should probably ask this question on a group
> related to the server you are using.
>
> 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: 08 Mar 1999 14:48:17 +0100
From: Tony Curtis <Tony.Curtis+usenet@vcpc.univie.ac.at>
Subject: Re: Upload: 0 Bytes
Message-Id: <8390d8qehq.fsf@vcpc.univie.ac.at>
Re: Re: Upload: 0 Bytes, Toggweiler
<ntogmi@abs.ascom.ch> said:
Toggweiler> Why does it work with Netscape?
Who knows? In any case, it has nothing to do with
comp.lang.perl.misc - it's a problem either with
what your server is outputting to the client, or
with the client's handling of that output, or both.
hth
tony
>> unchecked open.
>>
>> You cannot run perl programs in a browser. Such
>> programs run on the *server*.
>>
>> This has nothing to do with perl per se.
>>
>> You should probably ask this question on a group
>> related to the server you are using.
--
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: 12 Dec 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 Dec 98)
Message-Id: <null>
Administrivia:
Well, after 6 months, here's the answer to the quiz: what do we do about
comp.lang.perl.moderated. Answer: nothing.
]From: Russ Allbery <rra@stanford.edu>
]Date: 21 Sep 1998 19:53:43 -0700
]Subject: comp.lang.perl.moderated available via e-mail
]
]It is possible to subscribe to comp.lang.perl.moderated as a mailing list.
]To do so, send mail to majordomo@eyrie.org with "subscribe clpm" in the
]body. Majordomo will then send you instructions on how to confirm your
]subscription. This is provided as a general service for those people who
]cannot receive the newsgroup for whatever reason or who just prefer to
]receive messages via e-mail.
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 5086
**************************************
