[30614] in Perl-Users-Digest
Perl-Users Digest, Issue: 1859 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Sep 17 09:09:46 2008
Date: Wed, 17 Sep 2008 06:09:07 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Wed, 17 Sep 2008 Volume: 11 Number: 1859
Today's topics:
Re: check columns /tabs between two patterns <mstep@podiuminternational.org>
diverting from screen to file <cartercc@gmail.com>
new CPAN modules on Wed Sep 17 2008 (Randal Schwartz)
Rename of FileName using PERL <Laarni.Zosa@ubs.com>
Re: Rename of FileName using PERL <jurgenex@hotmail.com>
Re: Requiring Lexical $_ / Obliterating Global $_? <hjp-usenet2@hjp.at>
Re: web wizard question <michaelgang@gmail.com>
www freeweblayouts net - Myspace Layouts, Backgrounds, <syncopatemarcusad@gmail.com>
www googl com <syncopatemarcusad@gmail.com>
www homedepotopinion com <syncopatemarcusad@gmail.com>
www jcpsurvey com <syncopatemarcusad@gmail.com>
www youravon com <syncopatemarcusad@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 16 Sep 2008 14:24:55 -0700 (PDT)
From: Marek <mstep@podiuminternational.org>
Subject: Re: check columns /tabs between two patterns
Message-Id: <21bc01fc-24c3-42b1-b479-19c56c71b1f4@m44g2000hsc.googlegroups.com>
Sorry Tad,
but I understood you like follows:
#! /usr/local/bin/perl
use warnings;
use strict;
while (<DATA>) {
s/\s+#.+//;
next if /^\s*$/;
if ( ! /(pattern1)\t(number1)\s*/i) {
print
"[First if:] Wrong number of tabs between \"$1\" and the number \"$2\"
in the line:\n\t$_\n\n";
}
elsif ( ! /(pattern2)\t{2}(number2)\s*/i) {
print
"[First elsif:] Wrong number of tabs between \"$1\" and the number
\"$2\" in the line:\n\t$_\n\n";
}
elsif ( ! /(pattern3)\t{3}(number3)\s*/i) {
print
"[First elsif:] Wrong number of tabs between \"$1\" and the number
\"$2\" in the line:\n\t$_\n\n";
}
else {
print "\nno match!\n\n";
}
}
__DATA__
pattern1 number1
pattern2 number2
pattern3 number3
pattern1 number1 # wrong number of tabs (2tabs)
pattern2 number2 # wrong number of tabs (3tabs)
pattern3 number3 # wrong number of tabs (4tabs)
pattern2 number2 # wrong number of tabs (1tab)
pattern3 number3 # wrong number of tabs (2tabs)
And this is not working. Certainly a misunderstanding? And here the
version, how I understood Petr and Martjin ...
#! /usr/local/bin/perl
use warnings;
use strict;
while (<DATA>) {
s/\s+#.+//;
next if /^\s*$/;
if (/(pattern1)(\t+)(number1)\s*/i) {
print
"Wrong number of tabs between \"$1\" and the number \"$2\" in the line:
\n\t$.: $_\n\n" if length($2) !=1 ;
}
elsif (/(pattern2)(\t+)(number2)\s*/i) {
print
"Wrong number of tabs between \"$1\" and the number \"$2\" in the line:
\n\t$.: $_\n\n" if length($2) !=2 ;
}
elsif (/(pattern3)(\t+)(number3)\s*/i) {
print
"Wrong number of tabs between \"$1\" and the number \"$2\" in the line:
\n\t$.: $_\n\n" if length($2) !=3 ;
}
else {
print "\nno match!\n\n";
}
}
__DATA__
pattern1 number1
pattern2 number2
pattern3 number3
pattern1 number1 # wrong number of tabs (2tabs)
pattern2 number2 # wrong number of tabs (3tabs)
pattern3 number3 # wrong number of tabs (4tabs)
pattern2 number2 # wrong number of tabs (1tab)
pattern3 number3 # wrong number of tabs (2tabs)
------------------------------
Date: Wed, 17 Sep 2008 05:31:30 -0700 (PDT)
From: cartercc <cartercc@gmail.com>
Subject: diverting from screen to file
Message-Id: <69003c8f-11d1-45b3-8de7-c217e02c4da7@k37g2000hsf.googlegroups.com>
This may be totally off base, but it's a problem I currently face, and
I don't know where to start. It's not necessarily a Perl problem, but
it seems like something that Perl was designed to handle (at least in
theory).
I have a remote application that is a data source but not a RDBMS. I
have a local GUI client that connects with the remote application. I
can use the local client to type in 'queries' which the client relays
to the remote application and displays the results to the screen.
Unfortunately, this is entirely transient and I don't have any means
given by the client to save the results to a file. When I close to
client, there's nothing left on my machine.
I would like to divert the stream coming in from the remote
application to a file. I can confirm that the results are what I want
and then rerun the 'query' to reproduce the results, but I need to
have some persistency. The data does reach my local machine, but I
don't know how to keep it. Any suggestions on where I should start?
The client is an .exe file, and all I know how to get from trying to
read the client is an OD of the code. I even tried to disassemble it
and all I got was an unreadable mess.
TIA, CC.
------------------------------
Date: Wed, 17 Sep 2008 04:42:22 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Wed Sep 17 2008
Message-Id: <K7Bp2M.sFn@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.
AI-Genetic-Pro-0.16
http://search.cpan.org/~strzelec/AI-Genetic-Pro-0.16/
Efficient genetic algorithms for professional purpose.
----
Acme-CPANAuthors-Chinese-0.02
http://search.cpan.org/~fayland/Acme-CPANAuthors-Chinese-0.02/
We are chinese CPAN authors
----
AnyEvent-CouchDB-1.02
http://search.cpan.org/~beppu/AnyEvent-CouchDB-1.02/
a non-blocking CouchDB client based on jquery.couch.js
----
App-CLI-Plugin-Config-YAML-Syck-0.02
http://search.cpan.org/~holly/App-CLI-Plugin-Config-YAML-Syck-0.02/
for App::CLI::Extension config plugin module
----
BerkeleyDB-0.35
http://search.cpan.org/~pmqs/BerkeleyDB-0.35/
Perl extension for Berkeley DB version 2, 3 or 4
----
BerkeleyDB-Manager-0.01
http://search.cpan.org/~nuffin/BerkeleyDB-Manager-0.01/
General purpose BerkeleyDB wrapper
----
BerkeleyDB-Manager-0.02
http://search.cpan.org/~nuffin/BerkeleyDB-Manager-0.02/
General purpose BerkeleyDB wrapper
----
BerkeleyDB-Manager-0.03
http://search.cpan.org/~nuffin/BerkeleyDB-Manager-0.03/
General purpose BerkeleyDB wrapper
----
BerkeleyDB-Manager-0.04
http://search.cpan.org/~nuffin/BerkeleyDB-Manager-0.04/
General purpose BerkeleyDB wrapper
----
CGI-Application-Dispatch-2.13
http://search.cpan.org/~markstos/CGI-Application-Dispatch-2.13/
Dispatch requests to CGI::Application based objects
----
CGI-Application-Plugin-Config-Any-0.13
http://search.cpan.org/~mab/CGI-Application-Plugin-Config-Any-0.13/
Add Config::Any Support to CGI::Application
----
CGI-Carp-Throw-0.03
http://search.cpan.org/~ronaldws/CGI-Carp-Throw-0.03/
CGI::Carp exceptions that don't look like errors.
----
CGI-Test-Input-Custom-0.02
http://search.cpan.org/~salva/CGI-Test-Input-Custom-0.02/
send custom data to CGIs for testing
----
CPAN-Test-Dummy-Perl5-Make-FailLate-1.02
http://search.cpan.org/~dagolden/CPAN-Test-Dummy-Perl5-Make-FailLate-1.02/
CPAN Test Dummy
----
CPANPLUS-Dist-RPM-0.0.3
http://search.cpan.org/~rsrchboy/CPANPLUS-Dist-RPM-0.0.3/
a cpanplus backend to build RPM/RedHat rpms
----
CPANPLUS-Dist-RPM-0.0.4
http://search.cpan.org/~rsrchboy/CPANPLUS-Dist-RPM-0.0.4/
a CPANPLUS backend to build RPM
----
CPANPLUS-YACSmoke-0.08
http://search.cpan.org/~bingos/CPANPLUS-YACSmoke-0.08/
Yet Another CPANPLUS Smoke Tester
----
Cache-CacheFactory-1.07_05
http://search.cpan.org/~sgraham/Cache-CacheFactory-1.07_05/
factory class for Cache::Cache and other modules.
----
Carp-POE-0.05
http://search.cpan.org/~hinrik/Carp-POE-0.05/
Carp adapted to POE
----
CatalystX-CRUD-0.31
http://search.cpan.org/~karman/CatalystX-CRUD-0.31/
CRUD framework for Catalyst applications
----
Class-DBI-Lite-0.009
http://search.cpan.org/~johnd/Class-DBI-Lite-0.009/
Lightweight ORM for Perl
----
Convert-ASN1-0.22
http://search.cpan.org/~gbarr/Convert-ASN1-0.22/
ASN.1 Encode/Decode library
----
DBD-Pg-2.10.4
http://search.cpan.org/~turnstep/DBD-Pg-2.10.4/
PostgreSQL database driver for the DBI module
----
DBD-Pg-2.10.5
http://search.cpan.org/~turnstep/DBD-Pg-2.10.5/
PostgreSQL database driver for the DBI module
----
Data-Stream-Bulk-0.03
http://search.cpan.org/~nuffin/Data-Stream-Bulk-0.03/
N at a time iteration API
----
Data-Visitor-0.21
http://search.cpan.org/~nuffin/Data-Visitor-0.21/
Visitor style traversal of Perl data structures
----
DateTime-TimeZone-0.80
http://search.cpan.org/~drolsky/DateTime-TimeZone-0.80/
Time zone object base class and factory
----
Debug-Client-0.04
http://search.cpan.org/~szabgab/Debug-Client-0.04/
client side code for perl debugger
----
Deliantra-1.222
http://search.cpan.org/~mlehmann/Deliantra-1.222/
Deliantra suppport module to read/write archetypes, maps etc.
----
Devel-Autoflush-0.03
http://search.cpan.org/~dagolden/Devel-Autoflush-0.03/
Set autoflush from the command line
----
Foorum-0.2.2
http://search.cpan.org/~fayland/Foorum-0.2.2/
Foorum is a forum script built in Catalyst.
----
Foorum-0.2.3
http://search.cpan.org/~fayland/Foorum-0.2.3/
Foorum is a forum script built in Catalyst.
----
Google-Chart-0.05006
http://search.cpan.org/~dmaki/Google-Chart-0.05006/
Interface to Google Charts API
----
Gtk2-Ex-DateSpinner-1
http://search.cpan.org/~kryde/Gtk2-Ex-DateSpinner-1/
year/month/day date entry using SpinButtons
----
Gtk2-Ex-Dragger-3
http://search.cpan.org/~kryde/Gtk2-Ex-Dragger-3/
drag to move adjustment position
----
Gtk2-Ex-TickerView-8
http://search.cpan.org/~kryde/Gtk2-Ex-TickerView-8/
scrolling ticker display widget
----
Gtk2-Ex-WidgetBits-3
http://search.cpan.org/~kryde/Gtk2-Ex-WidgetBits-3/
miscellaneous Gtk widget helpers
----
HTML-CTPP2-2.3.10
http://search.cpan.org/~stellar/HTML-CTPP2-2.3.10/
Perl interface for CTPP2 library
----
HTML-CTPP2-2.3.9
http://search.cpan.org/~stellar/HTML-CTPP2-2.3.9/
Perl interface for CTPP2 library
----
IO-Multiplex-1.10
http://search.cpan.org/~bbb/IO-Multiplex-1.10/
Manage IO on many file handles
----
JE-0.025
http://search.cpan.org/~sprout/JE-0.025/
Pure-Perl ECMAScript (JavaScript) Engine
----
Language-P-0.01_01
http://search.cpan.org/~mbarbon/Language-P-0.01_01/
parsing/compiling Perl5 code using Perl5
----
Lingua-Stem-Es-0.04
http://search.cpan.org/~jfraire/Lingua-Stem-Es-0.04/
Perl Spanish Stemming
----
Module-Install-RTx-0.24
http://search.cpan.org/~ruz/Module-Install-RTx-0.24/
RT extension installer
----
MooseX-TheSchwartz-0.04
http://search.cpan.org/~fayland/MooseX-TheSchwartz-0.04/
TheSchwartz based on Moose!
----
MooseX-Types-Authen-Passphrase-0.01
http://search.cpan.org/~nuffin/MooseX-Types-Authen-Passphrase-0.01/
Authen::Passphrase type constraint and coercions
----
Net-Google-PicasaWeb-0.02
http://search.cpan.org/~hanenkamp/Net-Google-PicasaWeb-0.02/
use Google's Picasa Web API
----
Net-Sieve-Script-0.08
http://search.cpan.org/~yvesago/Net-Sieve-Script-0.08/
Parse and write sieve scripts
----
POD2-IT-Getopt-Long-1.02
http://search.cpan.org/~enrys/POD2-IT-Getopt-Long-1.02/
----
POE-Component-Client-NNTP-Tail-0.01
http://search.cpan.org/~dagolden/POE-Component-Client-NNTP-Tail-0.01/
Sends events for new articles posted to an NNTP newsgroup
----
POE-Component-Server-NNTP-1.02
http://search.cpan.org/~bingos/POE-Component-Server-NNTP-1.02/
A POE component that provides NNTP server functionality.
----
POE-Component-SmokeBox-Dists-0.02
http://search.cpan.org/~bingos/POE-Component-SmokeBox-Dists-0.02/
Search for CPAN distributions by cpanid or distribution name
----
Parse-BooleanLogic-0.04
http://search.cpan.org/~ruz/Parse-BooleanLogic-0.04/
parser of boolean expressions
----
Parse-CPAN-Distributions-0.02
http://search.cpan.org/~barbie/Parse-CPAN-Distributions-0.02/
Provides an index for current CPAN distributions
----
Parse-CPAN-Distributions-0.03
http://search.cpan.org/~barbie/Parse-CPAN-Distributions-0.03/
Provides an index for current CPAN distributions
----
PerlIO-Util-0.60
http://search.cpan.org/~gfuji/PerlIO-Util-0.60/
A selection of general PerlIO utilities
----
RPC-XML-0.61
http://search.cpan.org/~rjray/RPC-XML-0.61/
A set of classes for core data, message and XML handling
----
RT-Extension-SearchResults-XLS-0.03
http://search.cpan.org/~elacour/RT-Extension-SearchResults-XLS-0.03/
Add Excel format export to RT search results
----
RT-Extension-TicketAging-0.12
http://search.cpan.org/~ruz/RT-Extension-TicketAging-0.12/
allows tickets to be made inaccessable and finally completely deleted
----
RT-Extension-TicketLocking-0.10
http://search.cpan.org/~ruz/RT-Extension-TicketLocking-0.10/
Enables users to place advisory locks on tickets
----
RT-Extension-WatchedQueues-0.01
http://search.cpan.org/~elacour/RT-Extension-WatchedQueues-0.01/
List queues the user is a watcher of
----
RTx-Tags-0.04
http://search.cpan.org/~jpierce/RTx-Tags-0.04/
----
RiveScript-1.17
http://search.cpan.org/~kirsle/RiveScript-1.17/
Rendering Intelligence Very Easily
----
Rose-DB-Object-0.7711
http://search.cpan.org/~jsiracusa/Rose-DB-Object-0.7711/
Extensible, high performance object-relational mapper (ORM).
----
Rose-DB-Object-0.7712
http://search.cpan.org/~jsiracusa/Rose-DB-Object-0.7712/
Extensible, high performance object-relational mapper (ORM).
----
Rose-DBx-Object-MoreHelpers-0.03
http://search.cpan.org/~karman/Rose-DBx-Object-MoreHelpers-0.03/
more mixin helpers for RDBO
----
Rose-DBx-Object-Renderer-0.31
http://search.cpan.org/~danny/Rose-DBx-Object-Renderer-0.31/
Web UI Rendering for Rose::DB::Object
----
Rose-DBx-Object-Renderer-0.32
http://search.cpan.org/~danny/Rose-DBx-Object-Renderer-0.32/
Web UI Rendering for Rose::DB::Object
----
SystemC-Vregs-1.460
http://search.cpan.org/~wsnyder/SystemC-Vregs-1.460/
Utility routines used by vregs
----
Test-Aggregate-0.34_03
http://search.cpan.org/~ovid/Test-Aggregate-0.34_03/
Aggregate *.t tests to make them run faster.
----
Test-DBUnit-0.11
http://search.cpan.org/~adrianwit/Test-DBUnit-0.11/
Database test framework.
----
Test-PureASCII-0.01
http://search.cpan.org/~salva/Test-PureASCII-0.01/
Test that only ASCII characteres are used on your code
----
Test-Weaken-0.002003
http://search.cpan.org/~jkegl/Test-Weaken-0.002003/
Test that freed references are, indeed, freed
----
Test-Weaken-0.002004
http://search.cpan.org/~jkegl/Test-Weaken-0.002004/
Test that freed references are, indeed, freed
----
Test-Weaken-0.002005
http://search.cpan.org/~jkegl/Test-Weaken-0.002005/
Test that freed references are, indeed, freed
----
Test-Weaken-0.002006
http://search.cpan.org/~jkegl/Test-Weaken-0.002006/
Test that freed references are, indeed, freed
----
Text-Template-Simple-0.54_09
http://search.cpan.org/~burak/Text-Template-Simple-0.54_09/
Simple text template engine
----
Tk-EntrySet-0.05
http://search.cpan.org/~lamprecht/Tk-EntrySet-0.05/
display/edit a list of values in a Set of Widgets.
----
Tripletail-0.44
http://search.cpan.org/~hio/Tripletail-0.44/
Tripletail, Framework for Japanese Web Application
----
URI-Find-Simple-1.01
http://search.cpan.org/~tomi/URI-Find-Simple-1.01/
a simple interface to URI::Find
----
URI-Title-1.81
http://search.cpan.org/~tomi/URI-Title-1.81/
get the titles of things on the web in a sensible way
----
WWW-CPANRatings-RSS-0.0303
http://search.cpan.org/~zoffix/WWW-CPANRatings-RSS-0.0303/
get information from RSS feed on http://cpanratings.perl.org/
----
Waft-0.99_04
http://search.cpan.org/~tamashiro/Waft-0.99_04/
A simple web application framework
----
WebService-Linode-0.02
http://search.cpan.org/~mikegrb/WebService-Linode-0.02/
Perl Interface to the Linode.com API.
----
WordNet-SenseRelate-AllWords-0.11
http://search.cpan.org/~tpederse/WordNet-SenseRelate-AllWords-0.11/
Disambiguate All Words in a Text based on semantic similarity and relatedness in WordNet
----
YUM-RepoQuery-0.0.2
http://search.cpan.org/~rsrchboy/YUM-RepoQuery-0.0.2/
Query a YUM repository for package information
----
macro-0.04
http://search.cpan.org/~gfuji/macro-0.04/
An implementation of macro processor
----
warnings-method-0.03
http://search.cpan.org/~gfuji/warnings-method-0.03/
Produces warnings if methods are called as functions
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/>
Smalltalk/Perl/Unix consulting, Technical writing, Comedy, etc. etc.
See http://methodsandmessages.vox.com/ for Smalltalk and Seaside discussion
------------------------------
Date: Wed, 17 Sep 2008 01:09:38 -0700 (PDT)
From: Laarni <Laarni.Zosa@ubs.com>
Subject: Rename of FileName using PERL
Message-Id: <4b798380-d38e-4f4e-afe8-8970ca2df4bd@m36g2000hse.googlegroups.com>
Hi,
Anyone can help me on this query:
I need to rename all the files in the directory with this format:
Original FileName : txn.data
New File Name : txn.0000000001.data (where 0000000001 come from the
database table where column is seqquence number. The 0000000001 is
incrementing)
thanks for all the help in advance.
Regards,
Laarni
------------------------------
Date: Wed, 17 Sep 2008 03:44:59 -0700
From: Jürgen Exner <jurgenex@hotmail.com>
Subject: Re: Rename of FileName using PERL
Message-Id: <lrn1d4dvb7879djedb75k8ap168895ldlt@4ax.com>
Laarni <Laarni.Zosa@ubs.com> wrote:
>I need to rename all the files in the directory with this format:
Please see 'perldoc -f rename'
>Original FileName : txn.data
>New File Name : txn.0000000001.data (where 0000000001 come from the
>database table where column is seqquence number. The 0000000001 is
>incrementing)
Where is the problem?
jue
------------------------------
Date: Tue, 16 Sep 2008 23:27:54 +0200
From: "Peter J. Holzer" <hjp-usenet2@hjp.at>
Subject: Re: Requiring Lexical $_ / Obliterating Global $_?
Message-Id: <slrngd096q.ccc.hjp-usenet2@hrunkner.hjp.at>
On 2008-09-16 05:03, Tim McDaniel <tmcd@panix.com> wrote:
> In article <slrngctms3.13q.hjp-usenet2@hrunkner.hjp.at>,
> Peter J. Holzer <hjp-usenet2@hjp.at> wrote:
>>On 2008-09-14 16:08, Tim McDaniel <tmcd@panix.com> wrote:
>>> I would do
>>> foreach my $_ (...)
>>> in the same circumstances that I would do
>>> foreach my $i (...)
>>
>>I would not want this.
>>
>> foreach (...) {
>> }
>>
>>already implicitely declares a new $_ for a defined scope.
>
> But they're different scopes: "my" is lexical scopes but the implicit
> declaration is dynamic scope.
1) I know.
2) Starting with 5.10: Not necessarily:
#!/usr/local/bin/perl5.10.0
use warnings;
use strict;
sub foo {
$_ = 'foo';
}
sub bar {
my $_ = 'bar';
for (1, 2, 3) {
print "$_\n";
foo();
print "$_\n";
}
print "$_\n";
}
bar();
(So adding "my $_" to the start of each file, as somebody in this
thread suggested, does indeed help against "weird" bugs)
> Dynamic Scope Considered Harmful.
If each modification of $_ is surrounded with an (explicit or implicit)
local $_ with the smallest possible scope, there is little practical
difference.
The problematical constructs (i.e. those where you have to remember to
add a local $_) are "while (<>)" and direct assignment. Foreach, grep,
and map already add a scope by themselves. It should not be necessary
to make them more verbose.
hp
------------------------------
Date: Wed, 17 Sep 2008 01:09:07 -0700 (PDT)
From: david <michaelgang@gmail.com>
Subject: Re: web wizard question
Message-Id: <f1492a88-1cc1-4cfe-8e02-88ecc021adb3@p25g2000hsf.googlegroups.com>
On Sep 16, 5:36=A0pm, xhos...@gmail.com wrote:
> david <michaelg...@gmail.com> wrote:
>
> > Now is my code not interesting because i make all the work in
> > javascript and get a cgi, as i would not have a wizard. All the
> > parameters are sent once. My problem was that i have to remember what
> > i =A0chose in each step. lets say if i have a wizard with 4 steps. =A0I
> > have in step 2 of the wizard =A0a multiple select =A0and i select there=
5
> > items. Then i go to step 3 and then back to step 2. the program has to
> > remember the selection of step 2. I can make this with hidden fields
> > where each control of every step is a hidden field. But in every step
> > of the wizard i have to give in the html for every control of the
> > other steps a hidden field
> > This makes it tedious
>
> use CGI;
> my $cgi=3DCGI->new;
> #.....
> print $cgi->hidden('param_name');
>
> Xho
>
> --
> --------------------http://NewsReader.Com/--------------------
> The costs of publication of this article were defrayed in part by the
> payment of page charges. This article must therefore be hereby marked
> advertisement in accordance with 18 U.S.C. Section 1734 solely to indicat=
e
> this fact.
Thanks, I think this will do the trick. Something like this.
foreach my $param_name ($cgi->param) {
print $cgi->hidden($param_name,$cgi->param($param_name));
}
------------------------------
Date: Wed, 17 Sep 2008 01:06:55 -0700 (PDT)
From: Nickname44 <syncopatemarcusad@gmail.com>
Subject: www freeweblayouts net - Myspace Layouts, Backgrounds, Graphics, Codes
Message-Id: <f27bdbe5-e57a-4fe0-a948-4c1737e01774@f63g2000hsf.googlegroups.com>
www freeweblayouts net
.
.
.
*******ENTER HERE********
http://vids365.cn/freeweblayouts
*****************************
.
.
.
.
.
.
.
.
.
.
.
.
www freeweblayouts net
------------------------------
Date: Wed, 17 Sep 2008 01:09:12 -0700 (PDT)
From: Nickname44 <syncopatemarcusad@gmail.com>
Subject: www googl com
Message-Id: <3f75edd1-433a-4556-831a-5f70c87064a7@z72g2000hsb.googlegroups.com>
www googl com
.
.
.
*******ENTER HERE********
http://vids365.cn/googl
*****************************
.
.
.
.
.
.
.
.
.
.
.
.
www googl com
------------------------------
Date: Wed, 17 Sep 2008 01:09:39 -0700 (PDT)
From: Nickname44 <syncopatemarcusad@gmail.com>
Subject: www homedepotopinion com
Message-Id: <00e0219d-f046-4b20-b9c5-c2467500fb5b@d45g2000hsc.googlegroups.com>
www homedepotopinion com
.
.
.
*******ENTER HERE********
http://vids365.cn/homedepotopinion
*****************************
.
.
.
.
.
.
.
.
.
.
.
.
www homedepotopinion com
------------------------------
Date: Wed, 17 Sep 2008 01:10:10 -0700 (PDT)
From: Nickname44 <syncopatemarcusad@gmail.com>
Subject: www jcpsurvey com
Message-Id: <576b6621-1857-43f8-a7be-0d153b0dc24d@d77g2000hsb.googlegroups.com>
www jcpsurvey com
.
.
.
*******ENTER HERE********
http://vids365.cn/jcpsurvey
*****************************
.
.
.
.
.
.
.
.
.
.
.
.
www jcpsurvey com
------------------------------
Date: Wed, 17 Sep 2008 01:07:56 -0700 (PDT)
From: Nickname44 <syncopatemarcusad@gmail.com>
Subject: www youravon com
Message-Id: <e0718764-bff4-4abb-a204-85d3b078a536@d77g2000hsb.googlegroups.com>
www youravon com
.
.
.
*******ENTER HERE********
http://vids365.cn/youravon
*****************************
.
.
.
.
.
.
.
.
.
.
.
.
www youravon com
------------------------------
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 1859
***************************************
