[28802] in Perl-Users-Digest
Perl-Users Digest, Issue: 46 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Thu Jan 18 06:05:50 2007
Date: Thu, 18 Jan 2007 03:05:04 -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 Thu, 18 Jan 2007 Volume: 11 Number: 46
Today's topics:
attributes <ilpavox@gmail.com>
Re: attributes <spamtrap@dot-app.org>
Re: convert Vbscript to Perl code <nuke@all.spam>
Re: convert Vbscript to Perl code <uri@stemsystems.com>
Re: converting a perl script usenet@DavidFilmer.com
Re: how to use clearcase commands in perl script <sunil.vvn@gmail.com>
Re: how to use clearcase commands in perl script <sunil.vvn@gmail.com>
new CPAN modules on Thu Jan 18 2007 (Randal Schwartz)
perl + Win32::OLE + regex = bug <google@glob.com.au>
Re: regex problem <josef.moellers@fujitsu-siemens.com>
Re: regex problem <bik.mido@tiscalinet.it>
Re: the => operator <abigail@abigail.be>
Re: Unable to find form <nospam@home.com>
Re: Variable substitution <sebastien.godier@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 17 Jan 2007 22:48:35 -0800
From: "fed" <ilpavox@gmail.com>
Subject: attributes
Message-Id: <1169102915.099750.260290@l53g2000cwa.googlegroups.com>
The perldoc on attributes states :
"Perl handles these declarations by passing some information about the
call site and the thing being declared along with the attribute list to
this module."
but, how are attributes actually passed? Is it opp overloading? I'm
confused... Thanks.
------------------------------
Date: Thu, 18 Jan 2007 02:30:11 -0500
From: Sherm Pendley <spamtrap@dot-app.org>
Subject: Re: attributes
Message-Id: <m2ps9c3i7w.fsf@Sherm-Pendleys-Computer.local>
"fed" <ilpavox@gmail.com> writes:
> The perldoc on attributes states :
>
> "Perl handles these declarations by passing some information about the
> call site and the thing being declared along with the attribute list to
> this module."
>
> but, how are attributes actually passed? Is it opp overloading? I'm
> confused... Thanks.
That quote is from the first paragraph of "perldoc attributes". You need
to keep reading. :-)
What you're asking is detailed in the "Package-specific Attribute Handling"
section further down. In a nutshell, it's a callback mechanism; you write
a function that's called at compile time whenever attributes are found.
Whether your callback function handles them immediately, stores the info
for later use, or just ignores the attributes, is up to you. Perl's role
is just to tell you they're there, nothing more.
sherm--
--
Web Hosting by West Virginians, for West Virginians: http://wv-www.net
Cocoa programming in Perl: http://camelbones.sourceforge.net
------------------------------
Date: Thu, 18 Jan 2007 05:10:12 GMT
From: "tony.p" <nuke@all.spam>
Subject: Re: convert Vbscript to Perl code
Message-Id: <UiDrh.11150$ji1.5943@newssvr12.news.prodigy.net>
Uri Guttman wrote:
> tony p <nuke@all.spam> writes:
>
> > Uri Guttman wrote:
> >
> > > Vronans <vronans@nowheresville.spamwall> writes:
> > >
> > > > but the point is, how does any amount of help given justify
> > > > dragging someone through the dirt? Dont even try to tell me
> > > > that doesn't happen either.
> > >
> > > give it up. you don't help, you have no rights to comment. end of
> > > discussion.
> >
> > What is this stalin-istic move of supression? Who the in the
> > blue sam tp> hell made you the god of UseNet, to be able to decide
> > who can and who tp> cannot make comments? FYI, UseNet is entire
> > based on the concept of tp> posting and being commenting on said
> > posts.
>
> i made myself the lord of this group. i have all the power to make
> your code into python! i fart on your codebase. may your children
> become cobol programmers!!
And you really have nothing better to do? I mean, one person make a
comment, of which any reader has the right to do, and you basically do
everything in your power to try to destroy them, despite the validity of
their post. According to groups.google, you have been acting as the
attack dog for others whose ethics (or lack there of) get questioned.
How does it feel to be a mindless drone who cannot see past the
idle-like view of those they routinely defend.
------------------------------
Date: Thu, 18 Jan 2007 00:55:54 -0500
From: Uri Guttman <uri@stemsystems.com>
Subject: Re: convert Vbscript to Perl code
Message-Id: <x7ps9ckhed.fsf@mail.sysarch.com>
>>>>> "tp" == tony p <nuke@all.spam> writes:
tp> Uri Guttman wrote:
>> tony p <nuke@all.spam> writes:
>>
>> > Uri Guttman wrote:
>> >
>> > > Vronans <vronans@nowheresville.spamwall> writes:
>> > >
>> > > > but the point is, how does any amount of help given justify
>> > > > dragging someone through the dirt? Dont even try to tell me
>> > > > that doesn't happen either.
>> > >
>> > > give it up. you don't help, you have no rights to comment. end of
>> > > discussion.
>> >
>> > What is this stalin-istic move of supression? Who the in the
>> > blue sam tp> hell made you the god of UseNet, to be able to decide
>> > who can and who tp> cannot make comments? FYI, UseNet is entire
>> > based on the concept of tp> posting and being commenting on said
>> > posts.
>>
>> i made myself the lord of this group. i have all the power to make
>> your code into python! i fart on your codebase. may your children
>> become cobol programmers!!
tp> And you really have nothing better to do? I mean, one person make a
tp> comment, of which any reader has the right to do, and you basically do
tp> everything in your power to try to destroy them, despite the validity of
tp> their post. According to groups.google, you have been acting as the
tp> attack dog for others whose ethics (or lack there of) get questioned.
tp> How does it feel to be a mindless drone who cannot see past the
tp> idle-like view of those they routinely defend.
i am the mindless drone of your nightmare. please put yourself on the
line of fools forming to the right ----------->
anonymity is another way to make yourself ignored. cowards have no
rights to attack others. this is not a court of law or where you need to
be in the witless (sic) protection program. and the rule of not helping
with perl also stands. have you helped an old lady with her perl today?
WOOF!
uri
--
Uri Guttman ------ uri@stemsystems.com -------- http://www.stemsystems.com
--Perl Consulting, Stem Development, Systems Architecture, Design and Coding-
Search or Offer Perl Jobs ---------------------------- http://jobs.perl.org
------------------------------
Date: 18 Jan 2007 00:01:46 -0800
From: usenet@DavidFilmer.com
Subject: Re: converting a perl script
Message-Id: <1169107306.023484.240050@51g2000cwl.googlegroups.com>
Andy T wrote:
> On 15 Jan 2007 15:42:09 -0800, usenet@DavidFilmer.com wrote:
> >If, however, you really ARE using a bignosebird script, the above
> >probably will not apply.
>
> Yes that is the case so what next!.
>
> Am I allowed to post the script to see what people suggest please??
No (it would violate the BNB copyright/republication notice at the end
of the script). However, it's not necessary; it was easy to find the
script that you're using:
http://bignosebird.com/carchive/bnbform/bnbform.txt
According to the comments at the top of the script, it was written in
1998 and updated in 2000 for "security reasons" (and the context
suggests some of these reasons concerned e-mail functionality). You
should insure you are using this updated version.
But the updated version does not enable taint checks, which is standard
for good CGI progamming. You should enable taint checking by adding -T
to your shebang line, ie:
#!/usr/bin/perl -T
This might cause something to break (which, in this case, is a good
thing). See "perldoc perlsec" for information about tainted
parameters.
I briefly skimmed the script. I'm not a big fan of it - it disregards
many practices considered manditatory in good modern Perl programming
(notably the lack of "use strict" and, to a lesser extent, "use
warnings"). However, I didn't see any obvious huge problems. But one
thing is for sure: you are NOT using MSA form mail, as you have been
accused of.
--
David Filmer (http://DavidFilmer.com)
------------------------------
Date: 17 Jan 2007 23:19:35 -0800
From: "sunil" <sunil.vvn@gmail.com>
Subject: Re: how to use clearcase commands in perl script
Message-Id: <1169104775.066919.109870@51g2000cwl.googlegroups.com>
Andrew DeFaria wrote:
> sunil wrote:
> > Hi,
> > Presently I am having a requirement to use clearcase commands in a
> > perl script. The requirement is given below.
> >
> > 1) I will set my view manually from the command line in the unix prompt.
> > 2) Afterwards from the perls script I have to set the configspecs A
> > and shuld have to go to the where source code presents.
> > 3) I will do some operations over here
> > 4) Setting the other configspecs B and goes to the source code where
> > it presents.
> > 5) Doing some required tasks
> > 6) Again setting back the config specs A
> >
> > In this one from step 2 to step 6 I have to perform in the perls
> > script. I am unable to set the configspec from a perl script. If
> > anybody knows please let me know how to set it.
> Care to give us a guess at what you tried to do and how exactly it failed?
>
> BTW Why are you mucking with the config spec of a view? IOW shouldn't it
> be set correctly at the start and then left alone?
> --
> Andrew DeFaria <http://defaria.com>
> Don't look back, they might be gaining on you.
>
> --------------070802090302070207090108
> Content-Type: text/html; charset=ISO-8859-1
> X-Google-AttachSize: 1481
>
> <!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
> <html>
> <head>
> <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
> <title></title>
> </head>
> <body bgcolor="#ffffff" text="#000000">
> sunil wrote:
> <blockquote
> cite="mid1169042001.213701.110690@s34g2000cwa.googlegroups.com"
> type="cite">Hi,<br>
> Presently I am having a requirement to use clearcase commands in a perl
> script. The requirement is given below.<br>
> <br>
> 1) I will set my view manually from the command line in the unix prompt.<br>
> 2) Afterwards from the perls script I have to set the configspecs A and
> shuld have to go to the where source code presents.<br>
> 3) I will do some operations over here<br>
> 4) Setting the other configspecs B and goes to the source code where it
> presents.<br>
> 5) Doing some required tasks<br>
> 6) Again setting back the config specs A<br>
> <br>
> In this one from step 2 to step 6 I have to perform in the perls
> script. I am unable to set the configspec from a perl script. If
> anybody knows please let me know how to set it.<br>
> </blockquote>
> Care to give us a guess at what you tried to do and how exactly it
> failed?<br>
> <br>
> BTW Why are you mucking with the config spec of a view? IOW shouldn't
> it be set correctly at the start and then left alone?<br>
> <div class="moz-signature">-- <br>
> <a href="http://defaria.com">Andrew DeFaria</a><br>
> <small><font color="#999999">Don't look back, they might be gaining on
> you.</font></small>
> </div>
> </body>
> </html>
>
> --------------070802090302070207090108--
Hi,
See I am having two config specs ,one related to the main code
of the individual modules and one related to
the libraries used by those modules.
In the 1st step I will set the config specs of the main
code, and I will read the make file of a particular module and I will
find out the libraries used by that module.
In the second step I will set the config specs of the library
,and compiling those related libries and transfer those libraries to a
particular path.
In the third step coming back to the main module by setting
the config spec of main module and compiling the main module and
transfering it to a particular path.
this is what my script intends to it.The problem is how to
set the config spec in my perl script i am unable to get it.
Regards
Sunil
------------------------------
Date: 17 Jan 2007 23:26:34 -0800
From: "sunil" <sunil.vvn@gmail.com>
Subject: Re: how to use clearcase commands in perl script
Message-Id: <1169105194.399018.273420@a75g2000cwd.googlegroups.com>
Tad,
Do u know how to use these functions for to change config
specs. If u know please guide me.
At the same time to use this ,is this module should have to be
installed in my perl?
If yes, how to find out whether this module is installed or not?
Regards
Sunil
Tad McClellan wrote:
> sunil <sunil.vvn@gmail.com> wrote:
>
> > Presently I am having a requirement to use clearcase commands
> > in a perl script.
>
>
> http://search.cpan.org/search?query=ClearCase
>
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
------------------------------
Date: Thu, 18 Jan 2007 05:42:08 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Thu Jan 18 2007
Message-Id: <JC1uI8.24oD@zorch.sf-bay.org>
The following modules have recently been added to or updated in the
Comprehensive Perl Archive Network (CPAN). You can install them using the
instructions in the 'perlmodinstall' page included with your Perl
distribution.
Acme-Spork-v0.0.6
http://search.cpan.org/~dmuey/Acme-Spork-v0.0.6/
Perl extension for spork()ing in your script
----
Acme-Spork-v0.0.7
http://search.cpan.org/~dmuey/Acme-Spork-v0.0.7/
Perl extension for spork()ing in your script
----
AutoLoader-5.63
http://search.cpan.org/~smueller/AutoLoader-5.63/
load subroutines only on demand
----
DBIx-InsertHash-0.002
http://search.cpan.org/~uvoelker/DBIx-InsertHash-0.002/
insert/update a database record with a hash
----
DateTime-Format-Natural-0.23_01
http://search.cpan.org/~schubiger/DateTime-Format-Natural-0.23_01/
Create machine readable date/time with natural parsing logic
----
Finance-Card-Citibank-1.02
http://search.cpan.org/~mgrimes/Finance-Card-Citibank-1.02/
Check your Citigroup credit card accounts from Perl
----
GD-Graph-Polar-0.06
http://search.cpan.org/~mrdvt/GD-Graph-Polar-0.06/
Make polar graph using GD package
----
Games-RolePlay-MapGen-0.29.3
http://search.cpan.org/~jettero/Games-RolePlay-MapGen-0.29.3/
The base object for generating dungeons and maps
----
IO-DiskImage-Floppy-0.01
http://search.cpan.org/~hio/IO-DiskImage-Floppy-0.01/
manipulate fdd (FAT12) image.
----
Jifty-0.70116
http://search.cpan.org/~jesse/Jifty-0.70116/
an application framework
----
Jifty-0.70117
http://search.cpan.org/~jesse/Jifty-0.70117/
an application framework
----
Jifty-DBI-0.30
http://search.cpan.org/~jesse/Jifty-DBI-0.30/
An object-relational persistence framework
----
Lingua-Verbnet-1.001
http://search.cpan.org/~vkh/Lingua-Verbnet-1.001/
extract stats from verbnet xml files
----
Metai-Kalendorius-0.03
http://search.cpan.org/~kyoshu/Metai-Kalendorius-0.03/
Lithuanian calendar.
----
Router-Statistics-0.99_6
http://search.cpan.org/~shamrock/Router-Statistics-0.99_6/
Router Statistics and Information Collection
----
Text-Bidi-0.02
http://search.cpan.org/~kamensky/Text-Bidi-0.02/
Unicode bidi algorithm using libfribidi
----
Text-Restructured-0.003021
http://search.cpan.org/~nodine/Text-Restructured-0.003021/
----
VCS-CMSynergy-1.29
http://search.cpan.org/~rschupp/VCS-CMSynergy-1.29/
Perl interface to Telelogic SYNERGY/CM (aka Continuus/CM)
----
WWW-Mechanize-Shell-0.40
http://search.cpan.org/~corion/WWW-Mechanize-Shell-0.40/
An interactive shell for WWW::Mechanize
----
WebService-Validator-CSS-W3C-0.1
http://search.cpan.org/~oliviert/WebService-Validator-CSS-W3C-0.1/
Interface to the W3C CSS Validator
----
WebService-Validator-Feed-W3C-0.4
http://search.cpan.org/~oliviert/WebService-Validator-Feed-W3C-0.4/
Interface to the W3C Feed Validation service
----
ack-1.56
http://search.cpan.org/~petdance/ack-1.56/
grep-like text finder
If you're an author of one of these modules, please submit a detailed
announcement to comp.lang.perl.announce, and we'll pass it along.
This message was generated by a Perl program described in my Linux
Magazine column, which can be found on-line (along with more than
200 other freely available past column articles) at
http://www.stonehenge.com/merlyn/LinuxMag/col82.html
print "Just another Perl hacker," # the original
--
Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095
<merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/>
Perl/Unix/security consulting, Technical writing, Comedy, etc. etc.
See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training!
------------------------------
Date: 18 Jan 2007 00:42:02 -0800
From: "glob" <google@glob.com.au>
Subject: perl + Win32::OLE + regex = bug
Message-Id: <1169109721.961030.120990@m58g2000cwm.googlegroups.com>
#!perl
# highly butchered version of real-world code
# just to demonstrate the issue.
use strict;
use Win32::OLE;
my $field = 'bad@id';
if ($field =~ /^([^\@]+)\@(.*)/) {
my $dom = Win32::OLE->new('Msxml.DOMDocument');
$dom->loadXml('<moo><bad id="1" /></moo>');
$dom->documentElement->SelectSingleNode($1)->getAttribute($2);
}
my $desc = 'i am:testing';
$desc =~ s/^([^:]+)/$1/;
print "$desc\n";
__END__
this prints out "bad:testing", not "i am:testing".
changing the SelectSingleNode calls to create a new string fixes the
problem:
$dom->documentElement->SelectSingleNode("$1")->getAttribute("$2");
i found it interesting that the issue continues even thou $dom is out
of scope.
that is all, just had to share / vent. took me a while to track down.
-byron
------------------------------
Date: Thu, 18 Jan 2007 09:30:12 +0100
From: Josef Moellers <josef.moellers@fujitsu-siemens.com>
Subject: Re: regex problem
Message-Id: <eonc5l$gh0$1@nntp.fujitsu-siemens.com>
eldwin wrote:
> Hey all,
>=20
> I'm trying to search and replace to the following string:
>=20
> 0|1061203|150200559802-12345|STUDIO
> 0006979867|STUDIO|0066678||STUDIO|150200559802-12345|STAFF|XX|STAFF|XX|=
>=20
> What I want to do is replace whatever is in between | |.
>=20
> For example, I want to replace STAFF with PROSTAFF.
>=20
> my current regex looks like this:
>=20
> s/\|.*\|XX\|/\|PROSTAFF\|XX\|/g
>=20
> So, I'm not concerned with STAFF so much, but what's in between | |. I
> know "|" is a special character thus the "\" before it.
>=20
> When I apply this regex to my code, the resulting string is:
>=20
> 0|PROSTAFF|XX|
>=20
> Thanks in advance for any advice.
You may want to take a look at Text::CSV_XS
use warnings;
use strict;
use Text::CSV_XS;
my $csv =3D Text::CSV_XS->new({sep_char =3D> '|'});
die "failed to get new csv\n" unless $csv;
while (<STDIN>) {
chomp;
my $status =3D $csv->parse($_);
die "bad line $_\n" unless $status;
my @fields =3D $csv->fields();
foreach (@fields) {
$_ =3D "PROSTAFF" if $_ eq "STAFF";
}
$status =3D $csv->combine(@fields);
die "failed to combine ", join('|', @fields), "\n" unless $status;
print $csv->string(), "\n";
}
--=20
Josef M=F6llers (Pinguinpfleger bei FSC)
If failure had no penalty success would not be a prize
-- T. Pratchett
------------------------------
Date: Thu, 18 Jan 2007 11:46:07 +0100
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: regex problem
Message-Id: <uljuq2pfkhntpj2r02o41aah8hrs218pd2@4ax.com>
On Wed, 3 Jan 2007 15:32:37 +0100, "Andrea Petersen" <andreap@gmx.de>
wrote:
>References: <engcg7$jtm$00$1@news.t-online.com> <1167834145.506596.249160@k21g2000cwa.googlegroups.com>
Since this is a followup, *PLEASE* quote some context from the post
you're replying to.
>My problem:
>
><div>[a-z0-9\,\<\>\/ ]*</div>
>
>does not match the first div-tag. (but matches the second)
Did you actually *read* the post you're replying to? I don't see how
this comment of yours may apply to any part of it. Indeed you've been
recommended not to use regexen for a task like this, i.e. one for
which they aren't well suited to start from, and use an appropriate
module instead.
>my somach hurts. regexs are very unhealthy.
Regexen are perfectly healthy if you use them for what they're
actually good for. Parsing HTML is just not such a thing. You have to
live with this.
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: 18 Jan 2007 09:28:13 GMT
From: Abigail <abigail@abigail.be>
Subject: Re: the => operator
Message-Id: <slrnequfd7.74f.abigail@alexandra.abigail.be>
Wayne Poe (louis@h4h.com) wrote on MMMMDCCCLXXXVIII September MCMXCIII in
<URL:news:51841dF1j35s4U1@mid.individual.net>:
== Abigail wrote:
== > Wayne M. Poe (louisREMOVE@REMOVEh4h.com) wrote on MMMMDCCCLXXXVI
== > September MCMXCIII in <URL:news:515003F1ho4vuU1@mid.individual.net>:
== > `` In some places thats exactly what was there (any plank lien that
== > was `` quoted ends up being "-- \n")
== >
== > No.
==
== Actually at the begining there is one occurance:
==
== ------------------------------------------------
== fatwallet961@yahoo.com (fatwallet961@yahoo.com) wrote on MMMMDCCCLXXXV
== September MCMXCIII in
== <URL:news:l7unq2h7kj8flbbk01juqhcegnpaubmcg1@4ax.com>:
== -- in the following code
== --
== -- what's => means?
== ------------------------------------------------
Second to last line.
No. Go to the original message and count carefully again. All you need
to do is count to 2.
Abigail
--
$" = "/"; split // => eval join "+" => 1 .. 7;
*{"@_"} = sub {foreach (sort keys %_) {print "$_ $_{$_} "}};
%_ = (Just => another => Perl => Hacker); &{%_};
------------------------------
Date: Thu, 18 Jan 2007 10:21:36 GMT
From: "Nospam" <nospam@home.com>
Subject: Re: Unable to find form
Message-Id: <QSHrh.65091$z01.21352@newsfe3-gui.ntli.net>
"Sherm Pendley" <spamtrap@dot-app.org> wrote in message
news:m21wlt3rhx.fsf@Sherm-Pendleys-Computer.local...
> "Nospam" <nospam@home.com> writes:
>
> > So far the code is:
> >
> > #! usr/bin/perl
> > use strict;
> > use warnings;
> >
> > use WWW::Mechanize;
> >
> > my $mech = WWW::Mechanize->new();
> >
> > my $form_name = q(add_posting);
> >
> >
$mech->get('http://swansea.gumtree.com/cgi-bin/add_posting.pl?action=enter_p
> > assword');
> >
> > $mech->form_name($form_name);
> >
> > #also tried $mech->form_number(1);..$mech-#>form_number(2)
> >
> > $mech->field('posting_id','5069506');
> >
> > $mech->field('password','password');
> >
> > if($mech->success) {print "successful \n"; }
>
> OK, I see two problems here:
>
> First, you've misunderstood what the form_name() method is looking for.
It's
> not looking at the "action" attribute, it's looking for a "name"
attribute.
> Since the form in this page has no "name" attribute, form_name() will
never
> do anything meaningful. You have to use form_number(1) in this case.
>
> Incidentally, why would you expect form_number(2) to do anything
meaningful
> with a page that has only one form?
>
> The second problem is that you've filled out the form fields, but haven't
> actually submitted anything back to the server. You need to call the
submit()
> method to do that, or click_button() if you want to specify a button to
click.
>
> Having said that, I have to say you were lucky to get a response to your
> question here. I just happened to receive your posts in the same order
that
> you posted them, and just happened to remember that you'd posted the HTML
> form in your earlier post. And your earlier post just happened to still be
> available on my server.
>
> That's a lot of lucky events to rely on. The posting guidelines that are
> posted here frequently include a number of tips about how and what to post
> in order to make it more likely that you'll get answers here without
needing
> to depend on luck so much. You really should read (and of course, follow)
> the posting guidelines!
>
> sherm--
Thanks for replying
However I have tried it with $mech->form_number(1) with no result, I also
notice:
$mech->get('http://swansea.gumtree.com/cgi-bin/add_posting.pl?action=enter_p
assword');
print $mech->uri . "\n";
shortens the url to 'http://swansea.gumtree.com/cgi-bin/add_posting.pl
obviously there is no form in there
------------------------------
Date: 17 Jan 2007 23:42:56 -0800
From: "Seb" <sebastien.godier@gmail.com>
Subject: Re: Variable substitution
Message-Id: <1169106176.725358.320940@a75g2000cwd.googlegroups.com>
Thanks for your valuables advises Tad.
Sebastien.
------------------------------
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 46
*************************************
