[28817] in Perl-Users-Digest
Perl-Users Digest, Issue: 61 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Jan 22 18:06:20 2007
Date: Mon, 22 Jan 2007 15:05:12 -0800 (PST)
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, 22 Jan 2007 Volume: 11 Number: 61
Today's topics:
<GEN5> ? cmb99@operamail.com
Re: <GEN5> ? <mark.clementsREMOVETHIS@wanadoo.fr>
Re: <GEN5> ? cmb99@operamail.com
Re: <GEN5> ? cmb99@operamail.com
Re: Copy all <john.swilting@wanadoo.fr>
Re: Copy all <bik.mido@tiscalinet.it>
Re: Could someone help me with this source code? <4w2weez02@sneakemail.com>
Re: extract text body of email <glex_no-spam@qwest-spam-no.invalid>
Re: extract text body of email <bik.mido@tiscalinet.it>
Re: extract text body of email jcharth@hotmail.com
Re: extract text body of email <spamtrap@dot-app.org>
Re: FAQ 3.18 How can I free an array or hash so my prog <hjp-usenet2@hjp.at>
Re: How to decode javascript encodeURI / encodeURICompo <spamtrap@dot-app.org>
HTML help - how to interpret text literally <sukesh@zoom.co.uk>
Re: HTML help - how to interpret text literally <spamtrap@dot-app.org>
Re: HTML help - how to interpret text literally <no@email.com>
Re: HTML help - how to interpret text literally <jgibson@mail.arc.nasa.gov>
Re: HTML help - how to interpret text literally <bik.mido@tiscalinet.it>
Re: HTML help - how to interpret text literally <john@castleamber.com>
Re: launch simple perl script from browser <kenny1313@web.de>
Re: launch simple perl script from browser <kenny1313@web.de>
Re: launch simple perl script from browser <spamtrap@dot-app.org>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 22 Jan 2007 12:41:54 -0800
From: cmb99@operamail.com
Subject: <GEN5> ?
Message-Id: <1169498514.532665.310830@38g2000cwa.googlegroups.com>
I couldn't find the answer to this on the web, but when I get an error
like:
Modification of a read-only value attempted at
C:\dev\perl\script\mail.pl line 55, <GEN5> line 1908. It's a little
confusing. My script is called mail.pl, but I don't have 1900 lines in
it. I'm not really looking for help on the specific error, just what is
meant by output like this.
------------------------------
Date: Mon, 22 Jan 2007 21:52:16 +0100
From: Mark Clements <mark.clementsREMOVETHIS@wanadoo.fr>
Subject: Re: <GEN5> ?
Message-Id: <45b52401$0$25941$ba4acef3@news.orange.fr>
cmb99@operamail.com wrote:
> I couldn't find the answer to this on the web, but when I get an error
> like:
>
> Modification of a read-only value attempted at
> C:\dev\perl\script\mail.pl line 55, <GEN5> line 1908. It's a little
> confusing. My script is called mail.pl, but I don't have 1900 lines in
> it. I'm not really looking for help on the specific error, just what is
> meant by output like this.
>
You have an open filehandle called GEN5. The error has been caused at
line 55 of your script while line 1908 has just been read from GEN5.
(from perldoc perldiag)
Modification of a read-only value attempted
(F) You tried, directly or indirectly, to change the value of a
constant. You didn't, of course, try "2 = 1", because the compiler
catches that. But an easy way to do the same thing is:
sub mod { $_[0] = 1 }
mod(2);
Another way is to assign to a substr() that's off the end of the
string.
Yet another way is to assign to a "foreach" loop *VAR* when *VAR* is
aliased to a constant in the look *LIST*:
$x = 1;
foreach my $n ($x, 2) {
$n *= 2; # modifies the $x, but fails on attempt to modify the 2
}
Mark
------------------------------
Date: 22 Jan 2007 13:33:14 -0800
From: cmb99@operamail.com
Subject: Re: <GEN5> ?
Message-Id: <1169501594.468307.263930@s34g2000cwa.googlegroups.com>
Except that there aren't 1900 lines in the (imported) file either. Kind
of throwing my hands up in the air. This script works on exchange (MS)
inboxes but not on a pop3 server on the included component of win2k3
server.
Script attempts to read each e-mail, save attachments, and unzip saved
files:
#!/usr/bin/perl
use Mail::POP3Client;
use Mail::MboxParser::Mail;
use Archive::Extract;
#connect to POP
$pop = new Mail::POP3Client( USER => "username",
PASSWORD => "password",
HOST => "XXX.XXX.XXX.XXX",
PORT => 110,
DEBUG => 0,
AUTH_MODE => "PASS" );
$pop->Connect() || die $pop->Message();
print $pop->Count(), " message(s) in Inbox\n";
for( $i = 1; $i <= $pop->Count(); $i++ ) {
my @header = $pop->Head($i);
my @body = $pop->Body($i);
my $mail = new Mail::MboxParser::Mail (\@header, \@body) ;
my $numAttach = $mail->num_entities;
next if ($numAttach lt 1); # no attachments. body considered
attachment
my $mapping = $mail->get_attachments;
for my $filename (keys %$mapping) { # loop over attachments
next if $filename !~ /.*connectivity.*gzip/; # only interested in
connectivity logs
my $gz_filename = $filename;
$gz_filename =~ s/gzip/gz/;
#line that dies when connecting to MS pop3 vvvv
$mail->store_attachment($mapping->{$filename}, path => "temp") || die
("Died saving ", $filename, "\n", $mail->error()); # save to 'temp'
directory
rename "temp/".$filename, "temp/".$gz_filename; # Archive::Extract
doesn't understand gzip, only gz
$ae = Archive::Extract->new(archive => "temp/".$gz_filename, type=>
"gz");
$ae->extract(to => "temp");
# process xml
# write to database
}
}
}
$pop->Close();
Mark Clements wrote:
> cmb99@operamail.com wrote:
> > I couldn't find the answer to this on the web, but when I get an error
> > like:
> >
> > Modification of a read-only value attempted at
> > C:\dev\perl\script\mail.pl line 55, <GEN5> line 1908. It's a little
> > confusing. My script is called mail.pl, but I don't have 1900 lines in
> > it. I'm not really looking for help on the specific error, just what is
> > meant by output like this.
> >
> You have an open filehandle called GEN5. The error has been caused at
> line 55 of your script while line 1908 has just been read from GEN5.
>
> (from perldoc perldiag)
>
> Modification of a read-only value attempted
> (F) You tried, directly or indirectly, to change the value of a
> constant. You didn't, of course, try "2 = 1", because the compiler
> catches that. But an easy way to do the same thing is:
>
> sub mod { $_[0] = 1 }
> mod(2);
>
> Another way is to assign to a substr() that's off the end of the
> string.
>
> Yet another way is to assign to a "foreach" loop *VAR* when *VAR* is
> aliased to a constant in the look *LIST*:
>
> $x = 1;
> foreach my $n ($x, 2) {
> $n *= 2; # modifies the $x, but fails on attempt to modify the 2
> }
>
> Mark
------------------------------
Date: 22 Jan 2007 14:53:12 -0800
From: cmb99@operamail.com
Subject: Re: <GEN5> ?
Message-Id: <1169506391.945313.85840@q2g2000cwa.googlegroups.com>
Nevermind, had slashes in the attachment filenames.
cmb99@operamail.com wrote:
> Except that there aren't 1900 lines in the (imported) file either. Kind
> of throwing my hands up in the air. This script works on exchange (MS)
> inboxes but not on a pop3 server on the included component of win2k3
> server.
>
> Script attempts to read each e-mail, save attachments, and unzip saved
> files:
>
> #!/usr/bin/perl
>
> use Mail::POP3Client;
> use Mail::MboxParser::Mail;
> use Archive::Extract;
>
> #connect to POP
> $pop = new Mail::POP3Client( USER => "username",
> PASSWORD => "password",
> HOST => "XXX.XXX.XXX.XXX",
> PORT => 110,
> DEBUG => 0,
> AUTH_MODE => "PASS" );
>
> $pop->Connect() || die $pop->Message();
> print $pop->Count(), " message(s) in Inbox\n";
>
> for( $i = 1; $i <= $pop->Count(); $i++ ) {
> my @header = $pop->Head($i);
> my @body = $pop->Body($i);
> my $mail = new Mail::MboxParser::Mail (\@header, \@body) ;
> my $numAttach = $mail->num_entities;
> next if ($numAttach lt 1); # no attachments. body considered
> attachment
> my $mapping = $mail->get_attachments;
> for my $filename (keys %$mapping) { # loop over attachments
> next if $filename !~ /.*connectivity.*gzip/; # only interested in
> connectivity logs
> my $gz_filename = $filename;
> $gz_filename =~ s/gzip/gz/;
> #line that dies when connecting to MS pop3 vvvv
> $mail->store_attachment($mapping->{$filename}, path => "temp") || die
> ("Died saving ", $filename, "\n", $mail->error()); # save to 'temp'
> directory
> rename "temp/".$filename, "temp/".$gz_filename; # Archive::Extract
> doesn't understand gzip, only gz
> $ae = Archive::Extract->new(archive => "temp/".$gz_filename, type=>
> "gz");
> $ae->extract(to => "temp");
>
> # process xml
>
> # write to database
>
> }
> }
> }
>
> $pop->Close();
>
> Mark Clements wrote:
> > cmb99@operamail.com wrote:
> > > I couldn't find the answer to this on the web, but when I get an error
> > > like:
> > >
> > > Modification of a read-only value attempted at
> > > C:\dev\perl\script\mail.pl line 55, <GEN5> line 1908. It's a little
> > > confusing. My script is called mail.pl, but I don't have 1900 lines in
> > > it. I'm not really looking for help on the specific error, just what is
> > > meant by output like this.
> > >
> > You have an open filehandle called GEN5. The error has been caused at
> > line 55 of your script while line 1908 has just been read from GEN5.
> >
> > (from perldoc perldiag)
> >
> > Modification of a read-only value attempted
> > (F) You tried, directly or indirectly, to change the value of a
> > constant. You didn't, of course, try "2 = 1", because the compiler
> > catches that. But an easy way to do the same thing is:
> >
> > sub mod { $_[0] = 1 }
> > mod(2);
> >
> > Another way is to assign to a substr() that's off the end of the
> > string.
> >
> > Yet another way is to assign to a "foreach" loop *VAR* when *VAR* is
> > aliased to a constant in the look *LIST*:
> >
> > $x = 1;
> > foreach my $n ($x, 2) {
> > $n *= 2; # modifies the $x, but fails on attempt to modify the 2
> > }
> >
> > Mark
------------------------------
Date: Mon, 22 Jan 2007 18:49:57 +0100
From: "john.swilting" <john.swilting@wanadoo.fr>
Subject: Re: Copy all
Message-Id: <45b4f93d$0$5067$ba4acef3@news.orange.fr>
Michele Dondi wrote:
> On 21 Jan 2007 11:00:36 -0800, "Régine" <admin@crayos.com> wrote:
>
>>My OS is Windows like 2000 but why not XP or another..
>
> Well, that shouldn't be much of a difference. I suppose you have AS's
> Activeperl installed. Then you can fire up ppm like thus:
>
> ppm install File-Copy-Recursive
>
> Then you will be able to read its documentation by
>
> perldoc File::Copy::Recursive
>
>>Tanks for your compliment
>>It's so dificult to write English
>
> It's just important to take care of being as clear as possible, and it
> seems to me that you're doing the effort. That is respectful in our
> regards, and I appreciate it, and I bet most other regulars do as
> well. I'm not a native English speaker either, my mother tongue being
> Italian, so that my English is far from being perfect as well.
>
>
> Michele
JAPH
------------------------------
Date: Mon, 22 Jan 2007 19:53:29 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Copy all
Message-Id: <012ar2lcits83kuff2105pca2sgnq4j354@4ax.com>
On Mon, 22 Jan 2007 18:49:57 +0100, "john.swilting"
<john.swilting@wanadoo.fr> wrote:
>JAPH
?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 22 Jan 2007 12:44:50 -0600
From: "Caduceus" <4w2weez02@sneakemail.com>
Subject: Re: Could someone help me with this source code?
Message-Id: <ep30n5$mt3$2@aioe.org>
"Sherm Pendley" <spamtrap@dot-app.org> wrote in message
news:m2y7nxwkxb.fsf@Sherm-Pendleys-Computer.local...
>> I need to know how to specify Mozilla thunderbird as the email client
>
> This isn't a very good place for "how do I use this script" questions -
> for those, you're far better off asking the author of the script.
>
> This is a place for asking questions about *writing* Perl. With that in
> mind,
> assuming that you want to modify this script to do what you want - what
> have
> you tried so far? What error message and/or unexpected results did you
> get?
>
> sherm--
>
> --
What I need to know is that would this unix perl script work as a windows
perl scrip. TIA Steve
------------------------------
Date: Mon, 22 Jan 2007 11:47:56 -0600
From: "J. Gleixner" <glex_no-spam@qwest-spam-no.invalid>
Subject: Re: extract text body of email
Message-Id: <45b4f845$0$10297$815e3792@news.qwest.net>
jcharth@hotmail.com wrote:
> Hello I need to extract the text body of an email address.
The body of the E-Mail message? I have no idea what the body of an
E-Mail address would be.
>I tried
> email::mime and email::simple but probably i dont think i am doing this
> correctly.
> my $old_body = $emailsimple->body;
Who knows if you're doing it correctly. That line looks OK, but
we have no idea what $emailsimiple is, or what $old_body is, or
what you want to get out of your E-Mail.
> the variable old_body here has all the attachments may be i can use
> something else email::simple is probably not what i need. Thanks
First, you need a few more periods. :-)
It's Email::Simple.
Post a short example.
Show what's in $old_body.
use Data::Dumper;
print Dumper( $old_body );
Any show what you want the output to be.
------------------------------
Date: Mon, 22 Jan 2007 19:02:14 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: extract text body of email
Message-Id: <tou9r2tea119aii1j35336m3oc4h6se42q@4ax.com>
On 22 Jan 2007 07:14:13 -0800, jcharth@hotmail.com wrote:
>Hello I need to extract the text body of an email address. I tried
>email::mime and email::simple but probably i dont think i am doing this
BTW: those should be Email::MIME and Email::Simple - case does matter.
>correctly.
>my $old_body = $emailsimple->body;
>
>the variable old_body here has all the attachments may be i can use
>something else email::simple is probably not what i need. Thanks
Well, I have no experience with either module, but a quick peek into
E::S's docs seems to show that there should be nothing more to do than
what you tried. OTOH E::M's parts() method seems perhaps promising.
Have you tried that?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 22 Jan 2007 11:06:31 -0800
From: jcharth@hotmail.com
Subject: Re: extract text body of email
Message-Id: <1169492791.140112.96940@v45g2000cwv.googlegroups.com>
Thanks for the replies, I found the problem but it seems that many
modules are required to simply remove all the attachments, I will give
up for now.
Michele Dondi wrote:
> On 22 Jan 2007 07:14:13 -0800, jcharth@hotmail.com wrote:
>
> >Hello I need to extract the text body of an email address. I tried
> >email::mime and email::simple but probably i dont think i am doing this
>
> BTW: those should be Email::MIME and Email::Simple - case does matter.
>
> >correctly.
> >my $old_body = $emailsimple->body;
> >
> >the variable old_body here has all the attachments may be i can use
> >something else email::simple is probably not what i need. Thanks
>
> Well, I have no experience with either module, but a quick peek into
> E::S's docs seems to show that there should be nothing more to do than
> what you tried. OTOH E::M's parts() method seems perhaps promising.
> Have you tried that?
>
>
> Michele
> --
> {$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
> (($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
> .'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
> 256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: Mon, 22 Jan 2007 14:24:27 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: extract text body of email
Message-Id: <m2r6tm27bo.fsf@Sherm-Pendleys-Computer.local>
jcharth@hotmail.com writes:
> Thanks for the replies, I found the problem but it seems that many
> modules are required to simply remove all the attachments, I will give
> up for now.
Why would the use of modules would be a show-stopper?
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Mon, 22 Jan 2007 18:05:26 +0100
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: FAQ 3.18 How can I free an array or hash so my program shrinks?
Message-Id: <slrner9rmm.19m.hjp-usenet2@yoyo.hjp.at>
On 2007-01-22 15:51, Uri Guttman <uri@stemsystems.com> wrote:
>>>>>> "bdf" == brian d foy <brian.d.foy@gmail.com> writes:
>
> bdf> In article <slrner7k2h.4sk.hjp-usenet2@yoyo.hjp.at>, Peter J. Holzer
> bdf> <hjp-usenet2@hjp.at> wrote:
>
> >> > You usually can't. Memory allocated to lexicals (i.e. my() variables)
> >> > cannot be reclaimed or reused even if they go out of scope.
> >>
> >> As far as I know they are reclaimed when the function they are in
> >> returns. So if you temporarily need lots of memory to compute something
> >> it is better do it in a function.
>
> bdf> Do you have anything to support this? I'm not a guts sorta guy.
>
> it is not a function scope but a block scope that can free lexical vars
> in perl. and in some cases it is not freed in anticipation for nea
> future reuse (as in a loop block).
That may be the case. When I stumbled upon the problem a loop was
definitely involved. I'll see if I can find the discussion again.
> >> > On most operating systems, memory allocated to a program can never be
> >> ^^^^^^^^^^^^^^^^^^^^^^^^^
> >> > returned to the system.
>
> that isn't true at all. on all unix/linux flavors the brk/sbrk system calls
> are what is used to allocate new ram space
This is not true. The glibc uses brk/sbrk only for small allocations,
but mmap for large allocations. Most Linux systems use the glibc, so
it's probably not wrong to say that "Linux" does it this way. IIRC
OSF/1 did it this way, too, so I assume True64 Unix still does it. MacOS
also does that, and I think other BSDs flavours, too.
> and it can also be used to free any ram location only at the top of
> that space (it must be contiguous). from solaris man pages:
Yes, theoretically that's possible, but many malloc implementations
don't do it, and even if they do it, the chance that a chunk of
significant size at the top is freed is rather small - so in practice a
free() will most of of the time only return memory to malloc's free
memory pool, not to the OS.
> >> Linux is one of the systems using mmap, so it can return chunks of
> >> memory to the system if they are large enough
>
> bdf> That's if the perl uses the system mmap, though, isn't it?
If perl uses the system malloc and the system malloc uses mmap, yes.
(This is the case for the perl interpreter on all all Linux
distributions I've seen recently, but I don't claim to know them all).
> mmap has nothing to do with freeing ram to the OS.
It does at least on Linux and BSD systems. It may be used for that
purpose on other Unixes, too, even if malloc doesn't do it (I haven't
tried it, but I'm pretty sure that an mmap of /dev/zero with MAP_PRIVATE
would allocate RAM on HP-UX, for example).
> only brk/sbrk can do that. mmap needs ram usually allocated with
> malloc (or friends) and that will call brk to allocate more system ram
> as needed.
No, you don't have to allocate RAM before calling mmap. mmap will
happily allocate RAM - in fact unless you tell it to use a certain
address it will always use an unused portion of your memory space.
hp
--
_ | Peter J. Holzer | Es ist ganz einfach ihn zu verstehen, wenn
|_|_) | Sysadmin WSR | man nur alle wichtigen Worte im Satz durch
| | | hjp@hjp.at | andere ersetzt.
__/ | http://www.hjp.at/ | -- Nils Ketelsen in danr
------------------------------
Date: Mon, 22 Jan 2007 11:14:12 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: How to decode javascript encodeURI / encodeURIComponent ?
Message-Id: <m2mz4b2g4r.fsf@Sherm-Pendleys-Computer.local>
"Ian" <ianaturner@gmail.com> writes:
> Brian McCauley wrote:
>
>> But there is (almost) an exact mention in the FAQ.
>
> I gather "it's courtesy to provide a link"... that would have avoided
> confusion over what was meant by "the FAQ"
Confusion? *What* confusion? What did you think he might have been talking
about, the C++ FAQ???
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: 22 Jan 2007 08:29:01 -0800
From: "Suk" <sukesh@zoom.co.uk>
Subject: HTML help - how to interpret text literally
Message-Id: <1169483341.293959.205320@11g2000cwr.googlegroups.com>
Hi
I've seen some HTML tag you can use such that it will display text you
enclose in them litereally rather than interpret as html
For example
<tag>
<b>Some Text</b>
</tag>
Would be displayed exactly as written rather than in bold. I've
forgotten what this tag is!!
Does anyone know? I want to be able to display text on a web page
literally without it being interpreted as HTML
------------------------------
Date: Mon, 22 Jan 2007 11:34:02 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: HTML help - how to interpret text literally
Message-Id: <m2d5572f7p.fsf@Sherm-Pendleys-Computer.local>
"Suk" <sukesh@zoom.co.uk> writes:
> Does anyone know?
Lots of people know. You can find them in a group with HTML in its name.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Mon, 22 Jan 2007 18:02:54 +0000
From: Brian Wakem <no@email.com>
Subject: Re: HTML help - how to interpret text literally
Message-Id: <51kcgtF1kkp67U1@mid.individual.net>
Suk wrote:
> Hi
>
> I've seen some HTML tag you can use such that it will display text you
> enclose in them litereally rather than interpret as html
>
> For example
> <tag>
> <b>Some Text</b>
> </tag>
>
> Would be displayed exactly as written rather than in bold. I've
> forgotten what this tag is!!
> Does anyone know? I want to be able to display text on a web page
> literally without it being interpreted as HTML
This is perl newsgroup so you'll get a perl answer.
use HTML::Entities;
my $string = <<HERE;
<tag>
<b>Some Text</b>
</tag>
HERE
print encode_entities($string);
--
Brian Wakem
Email: http://homepage.ntlworld.com/b.wakem/myemail.png
------------------------------
Date: Mon, 22 Jan 2007 10:05:53 -0800
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: HTML help - how to interpret text literally
Message-Id: <220120071005531361%jgibson@mail.arc.nasa.gov>
In article <1169483341.293959.205320@11g2000cwr.googlegroups.com>, Suk
<sukesh@zoom.co.uk> wrote:
> Hi
>
> I've seen some HTML tag you can use such that it will display text you
> enclose in them litereally rather than interpret as html
>
> For example
> <tag>
> <b>Some Text</b>
> </tag>
>
> Would be displayed exactly as written rather than in bold. I've
> forgotten what this tag is!!
> Does anyone know? I want to be able to display text on a web page
> literally without it being interpreted as HTML
>
<pre>
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Mon, 22 Jan 2007 19:09:34 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: HTML help - how to interpret text literally
Message-Id: <f2v9r25i1hvh7lhf521ft0dp4u1kpd3mlc@4ax.com>
On 22 Jan 2007 08:29:01 -0800, "Suk" <sukesh@zoom.co.uk> wrote:
>I've seen some HTML tag you can use such that it will display text you
>enclose in them litereally rather than interpret as html
[snip]
>Does anyone know? I want to be able to display text on a web page
>literally without it being interpreted as HTML
Someone in a *HTML group* (or forum) will surely know. Have you tried
comp.infosystems.www.authoring.html?
Michele
--
{$_=pack'B8'x25,unpack'A8'x32,$a^=sub{pop^pop}->(map substr
(($a||=join'',map--$|x$_,(unpack'w',unpack'u','G^<R<Y]*YB='
.'KYU;*EVH[.FHF2W+#"\Z*5TI/ER<Z`S(G.DZZ9OX0Z')=~/./g)x2,$_,
256),7,249);s/[^\w,]/ /g;$ \=/^J/?$/:"\r";print,redo}#JAPH,
------------------------------
Date: 22 Jan 2007 18:29:14 GMT
From: John Bokma <john@castleamber.com>
Subject: Re: HTML help - how to interpret text literally
Message-Id: <Xns98C07F069B0B1castleamber@130.133.1.4>
"Suk" <sukesh@zoom.co.uk> wrote:
> Hi
>
> I've seen some HTML tag you can use such that it will display text you
> enclose in them litereally rather than interpret as html
>
> For example
> <tag>
> <b>Some Text</b>
> </tag>
>
> Would be displayed exactly as written rather than in bold. I've
> forgotten what this tag is!!
> Does anyone know? I want to be able to display text on a web page
> literally without it being interpreted as HTML
Since this a group on Perl, I give you one hint the Perl way:
s/</</g;
--
John Experienced Perl programmer: http://castleamber.com/
Perl help, tutorials, and examples: http://johnbokma.com/perl/
------------------------------
Date: 22 Jan 2007 13:58:47 -0800
From: "kenny" <kenny1313@web.de>
Subject: Re: launch simple perl script from browser
Message-Id: <1169503127.263543.273530@11g2000cwr.googlegroups.com>
thanks for your help everybody! i used something like you suggested but
the browser shows me the source code of the .pl
how can i run it. i thought i would use a typically configured web
server??
>
> http://localhost/x.pl
>
> HTH
>
> BTW, if you need a free web server, I've got a 51-line Perl one.
> --
> Bob Walton
> Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: 22 Jan 2007 13:58:56 -0800
From: "kenny" <kenny1313@web.de>
Subject: Re: launch simple perl script from browser
Message-Id: <1169503136.298945.286160@38g2000cwa.googlegroups.com>
thanks for your help everybody! i used something like you suggested but
the browser shows me the source code of the .pl
how can i run it? i thought i would use a typically configured web
server??
>
> http://localhost/x.pl
>
> HTH
>
> BTW, if you need a free web server, I've got a 51-line Perl one.
> --
> Bob Walton
> Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Mon, 22 Jan 2007 17:07:32 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: launch simple perl script from browser
Message-Id: <m2irey1zrv.fsf@Sherm-Pendleys-Computer.local>
"kenny" <kenny1313@web.de> writes:
> thanks for your help everybody! i used something like you suggested but
> the browser shows me the source code of the .pl
> how can i run it?
Configure your server to run .pl files as CGIs.
If you need help doing that, ask for help in a group that has something to
do with web server configuration. It has nothing whatsoever to do with Perl -
the answer would be the same if you wanted your server to run .py, .sh, or
.exe files.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
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: due to the current flood of worm email banging on ruby, the smtp
server on ruby has been shut off until further notice.
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 V11 Issue 61
*************************************
