[29206] in Perl-Users-Digest
Perl-Users Digest, Issue: 450 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue May 22 03:10:26 2007
Date: Tue, 22 May 2007 00:09:05 -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 Tue, 22 May 2007 Volume: 11 Number: 450
Today's topics:
Re: Catching SIGALRM in a thread <newsgroups@debain.org>
Re: executing an sql statement in perl <tadmc@augustmail.com>
Re: executing an sql statement in perl <noone@nowhere.com>
Re: executing an sql statement in perl <xicheng@gmail.com>
listing all available methods <doom@kzsu.stanford.edu>
module for word analysis <ptri.c.k.@statrerv.corn>
new CPAN modules on Tue May 22 2007 (Randal Schwartz)
Re: Passing variables into another script <csoon@xilinx.com>
Re: Passing variables into another script <tadmc@augustmail.com>
Re: Passing variables into another script <tadmc@augustmail.com>
Re: Passing variables into another script <csoon@xilinx.com>
Re: Passing variables into another script <m@rtij.nl.invlalid>
Re: Script to compare two directory structures <jgibson@mail.arc.nasa.gov>
Re: Unicode in regexp <stoupa@practisoft.cz>
www.eBankGame.com Buy WoW gold RS gold WG k gold <eBankGame2010@gmail.com>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 21 May 2007 20:00:05 +0000 (UTC)
From: Samuel <newsgroups@debain.org>
Subject: Re: Catching SIGALRM in a thread
Message-Id: <f2sto5$lmg$2@tamarack.fernuni-hagen.de>
On Mon, 21 May 2007 15:16:48 +0000, xhoster wrote:
> I don't. I use forking instead of threads, almost always. And when I
> can't, I strongly consider using a different language.
By now, that's pretty much my conclusion. The fact that sharing nested
objects between threads is only possible by making every object and all
of it's attributes thread aware makes things *really* cumbersome. I am
currently looking into the alternatives.
> My Net::Telnet documentation doesn't mention thread safety. I'd take
> that as a caution against using Net::Telnet with threads.
Yay, another problem! Things could have been going a little bit
smoother... well, at least I have a working prototype.
Thank you for your comment!
-Samuel
------------------------------
Date: Mon, 21 May 2007 05:53:33 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: executing an sql statement in perl
Message-Id: <slrnf52uhd.a7c.tadmc@tadmc30.august.net>
MMWJones@googlemail.com <MMWJones@googlemail.com> wrote:
> If this is the wong board to post this question can someone guide me
> to the correct board...
>
> I have an sql statement that is in single quotes
>
>
> or $dbh->do ('update test set (mudid, date_of_last_entrym
> number_of_entries) = (select mudid, max(thetime) as
> date_of_last_entry, count(*) as number_of_entries from log@test l,
> user@test u
> where l.user = u.user
> and mudid = '$a'
> and thetime > sysdate - 90
> group by mudid)')
>
> where $a is defined as the id.
>
> however i don't think it likes the 2 sets of single quotes. I have to
> use single quotes as otherwise the @ symbols aren't read correctly.
You have to use double quotes or the $a won't be interpolated correctly.
> any ideas?
Use double quotes, and backslash the at-signs.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 21 May 2007 23:23:58 -0400
From: Dennis Roesler <noone@nowhere.com>
Subject: Re: executing an sql statement in perl
Message-Id: <1179802810.516277@newsreg.cos.agilent.com>
Paul Lalli wrote:
> On May 21, 6:11 am, "MMWJo...@googlemail.com"
> <MMWJo...@googlemail.com> wrote:
>> If this is the wong board to post this question can someone guide me
>> to the correct board...
>>
>> I have an sql statement that is in single quotes
>>
>> or $dbh->do ('update test set (mudid, date_of_last_entrym
>> number_of_entries) = (select mudid, max(thetime) as
>> date_of_last_entry, count(*) as number_of_entries from log@test l,
>> user@test u
>> where l.user = u.user
>> and mudid = '$a'
>> and thetime > sysdate - 90
>> group by mudid)')
>>
>> where $a is defined as the id.
>>
>> however i don't think it likes the 2 sets of single quotes. I have to
>> use single quotes as otherwise the @ symbols aren't read correctly.
>>
>> The below sql statement works fine directly in my sql program (TOAD)
>> and this is why i think it is a perl problem:
>>
>> select id, max(thetime) as date_of_last_entry, count(*) as
>> number_of_entries from log@test l, user@test u
>> where l.user = u.user
>> and id = 'MATT'
>> and thetime > sysdate - 90
>> group by id
>>
>> any ideas?
>
> Because you need interpolation to occur in this string, you NEED to
> use double quotes to surround the string. To prevent Perl from
> thinking the @ characters start an array, simply put a backslash in
> front of them.
>
> $dbh->do ("update test set (mudid, date_of_last_entrym
> number_of_entries) = (select mudid, max(thetime) as
> date_of_last_entry, count(*) as number_of_entries from log\@test l,
> user\@test u
> where l.user = u.user
> and mudid = '$a'
> and thetime > sysdate - 90
> group by mudid)");
>
>
> Alternatively, do not put the variable within the SQL directly. Use
> placeholders instead.
>
> $dbh->do ('update test set (mudid, date_of_last_entrym
> number_of_entries) = (select mudid, max(thetime) as
> date_of_last_entry, count(*) as number_of_entries from log@test l,
> user@test u
> where l.user = u.user
> and mudid = ?
> and thetime > sysdate - 90
> group by mudid)', {}, $a);
>
> See also:
> perldoc DBI
> perldoc perlsyn
> perldoc perldata
I don't think place holders will work with $dbh->do because that does a
prepare and execute in one go.
http://search.cpan.org/~timb/DBI-1.56/DBI.pm#do
As others have mentioned use quotes or $dbh->do(qq{sql statement});
Dennis
d underscore roesler at agilent dot com
------------------------------
Date: 21 May 2007 20:43:38 -0700
From: Xicheng Jia <xicheng@gmail.com>
Subject: Re: executing an sql statement in perl
Message-Id: <1179805418.416425.9870@q75g2000hsh.googlegroups.com>
On May 21, 11:23 pm, Dennis Roesler <n...@nowhere.com> wrote:
> Paul Lalli wrote:
> > On May 21, 6:11 am, "MMWJo...@googlemail.com"
> > <MMWJo...@googlemail.com> wrote:
> >> If this is the wong board to post this question can someone guide me
> >> to the correct board...
>
> >> I have an sql statement that is in single quotes
>
> >> or $dbh->do ('update test set (mudid, date_of_last_entrym
> >> number_of_entries) = (select mudid, max(thetime) as
> >> date_of_last_entry, count(*) as number_of_entries from log@test l,
> >> user@test u
> >> where l.user = u.user
> >> and mudid = '$a'
> >> and thetime > sysdate - 90
> >> group by mudid)')
>
> >> where $a is defined as the id.
>
> >> however i don't think it likes the 2 sets of single quotes. I have to
> >> use single quotes as otherwise the @ symbols aren't read correctly.
>
> >> The below sql statement works fine directly in my sql program (TOAD)
> >> and this is why i think it is a perl problem:
>
> >> select id, max(thetime) as date_of_last_entry, count(*) as
> >> number_of_entries from log@test l, user@test u
> >> where l.user = u.user
> >> and id = 'MATT'
> >> and thetime > sysdate - 90
> >> group by id
>
> >> any ideas?
>
> > Because you need interpolation to occur in this string, you NEED to
> > use double quotes to surround the string. To prevent Perl from
> > thinking the @ characters start an array, simply put a backslash in
> > front of them.
>
> > $dbh->do ("update test set (mudid, date_of_last_entrym
> > number_of_entries) = (select mudid, max(thetime) as
> > date_of_last_entry, count(*) as number_of_entries from log\@test l,
> > user\@test u
> > where l.user = u.user
> > and mudid = '$a'
> > and thetime > sysdate - 90
> > group by mudid)");
>
> > Alternatively, do not put the variable within the SQL directly. Use
> > placeholders instead.
>
> > $dbh->do ('update test set (mudid, date_of_last_entrym
> > number_of_entries) = (select mudid, max(thetime) as
> > date_of_last_entry, count(*) as number_of_entries from log@test l,
> > user@test u
> > where l.user = u.user
> > and mudid = ?
> > and thetime > sysdate - 90
> > group by mudid)', {}, $a);
>
> > See also:
> > perldoc DBI
> > perldoc perlsyn
> > perldoc perldata
>
> I don't think place holders will work with $dbh->do because that does a
> prepare and execute in one go.
why not, I use placeholder with $dbh->do(...) on my website, and it
works pretty well so far. :-)
Regards,
Xicheng
------------------------------
Date: Mon, 21 May 2007 23:27:09 -0700
From: Joseph Brenner <doom@kzsu.stanford.edu>
Subject: listing all available methods
Message-Id: <87abvxtltu.fsf@localhostobsidianrook.com>
Can someone point me at a good way of getting a list of all
methods available to an object? Essentially, I'm looking for a
simple way of emulating the "m" command in the debugger (and
if know one knows off the top of their heads, I might delve
into how the debugger does it...).
------------------------------
Date: Mon, 21 May 2007 19:20:32 -0700
From: "Patrick" <ptri.c.k.@statrerv.corn>
Subject: module for word analysis
Message-Id: <5bf2c8F2pbd7dU1@mid.individual.net>
Is there a Perl module for performing some statistical word analysis on a
large group of files? I'd like to know how many times every
(case-insensitive) word is used, preferably including its variants, such as
hope, hoping, hopefully, hopeful, etc.
------------------------------
Date: Tue, 22 May 2007 04:42:13 GMT
From: merlyn@stonehenge.com (Randal Schwartz)
Subject: new CPAN modules on Tue May 22 2007
Message-Id: <JIFEED.1Lt1@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.
Brackup-1.00
http://search.cpan.org/~bradfitz/Brackup-1.00/
Flexible backup tool. Slices, dices, encrypts, and sprays across the net.
----
Brackup-1.01
http://search.cpan.org/~bradfitz/Brackup-1.01/
Flexible backup tool. Slices, dices, encrypts, and sprays across the net.
----
Business-OnlinePayment-CyberSource-2.00
http://search.cpan.org/~pbowen/Business-OnlinePayment-CyberSource-2.00/
CyberSource backend for Business::OnlinePayment
----
Business-PayPal-API-0.50
http://search.cpan.org/~scottw/Business-PayPal-API-0.50/
PayPal API
----
Catalyst-Model-YouTube-0.13
http://search.cpan.org/~jshirley/Catalyst-Model-YouTube-0.13/
Catalyst Model for the YouTube Web Services
----
Catalyst-Model-YouTube-0.14
http://search.cpan.org/~jshirley/Catalyst-Model-YouTube-0.14/
Catalyst Model for the YouTube Web Services
----
Catalyst-View-Mason-0.09_03
http://search.cpan.org/~flora/Catalyst-View-Mason-0.09_03/
Mason View Class
----
Catalyst-View-TextForge-0.01
http://search.cpan.org/~maurice/Catalyst-View-TextForge-0.01/
Text::Forge View Class
----
Catalyst-View-TextForge-0.02
http://search.cpan.org/~maurice/Catalyst-View-TextForge-0.02/
Text::Forge View Class
----
DBIx-Easy-0.17
http://search.cpan.org/~hornburg/DBIx-Easy-0.17/
Easy to Use DBI interface
----
Data-SExpression-0.34
http://search.cpan.org/~nelhage/Data-SExpression-0.34/
Parse Lisp S-Expressions into perl data structures.
----
DateTime-Format-Pg-0.16
http://search.cpan.org/~dmaki/DateTime-Format-Pg-0.16/
Parse and format PostgreSQL dates and times
----
DateTime-Util-Calc-0.13001
http://search.cpan.org/~dmaki/DateTime-Util-Calc-0.13001/
DateTime Calculation Utilities
----
Device-Jtag-USB-FTCJTAG-0.02
http://search.cpan.org/~tdeitrich/Device-Jtag-USB-FTCJTAG-0.02/
Perl extension for communicating with JTAG devices using the FTDI FTCJTAG driver.
----
Egg-Release-2.10
http://search.cpan.org/~lushe/Egg-Release-2.10/
Version of Egg WEB Application Framework.
----
Event-Lib-1.02
http://search.cpan.org/~vparseval/Event-Lib-1.02/
Perl extentions for event-based programming
----
File-Util-3.202
http://search.cpan.org/~tommy/File-Util-3.202/
Easy, versatile, portable file handling
----
File-Util-3.21
http://search.cpan.org/~tommy/File-Util-3.21/
Easy, versatile, portable file handling
----
Gearman-1.08
http://search.cpan.org/~bradfitz/Gearman-1.08/
----
HTML-Encoding-0.53
http://search.cpan.org/~bjoern/HTML-Encoding-0.53/
Determine the encoding of HTML/XML/XHTML documents
----
JSON-RPC-0.01
http://search.cpan.org/~makamaka/JSON-RPC-0.01/
Perl implementation of JSON-RPC 1.1 protocol
----
Mail-Karmasphere-Client-2.10
http://search.cpan.org/~shevek/Mail-Karmasphere-Client-2.10/
Client for Karmasphere Reputation Server
----
Module-Build-Kwalitee-0.24
http://search.cpan.org/~fotango/Module-Build-Kwalitee-0.24/
Module::Build subclass with prepackaged tests
----
Net-Jaiku-0.0301
http://search.cpan.org/~rickm/Net-Jaiku-0.0301/
A perl interface to jaiku.com's API
----
Net-SMS-MyTMN
http://search.cpan.org/~msantinho/Net-SMS-MyTMN/
Send SMS trough MyTMN!
----
Net-SMS-MyTMN-0.01
http://search.cpan.org/~msantinho/Net-SMS-MyTMN-0.01/
Send SMS trough MyTMN!
----
PAB3-3.0.2
http://search.cpan.org/~chrmue/PAB3-3.0.2/
Perl Application Builder
----
PAB3-DB-Driver-Mysql-1.0.1
http://search.cpan.org/~chrmue/PAB3-DB-Driver-Mysql-1.0.1/
Perl5 wrapper to the mysql5+ client libary and driver for the PAB3::DB class
----
PAB3-DB-Driver-Postgres-1.0.1
http://search.cpan.org/~chrmue/PAB3-DB-Driver-Postgres-1.0.1/
Perl5 wrapper to the pgsql libary and driver for the PAB3::DB class
----
PAB3-DB-Driver-Sqlite3-1.0.1
http://search.cpan.org/~chrmue/PAB3-DB-Driver-Sqlite3-1.0.1/
Perl wrapper to libsqlite3 and driver for the PAB3::DB class
----
POE-Component-Client-MPD-0.4.2
http://search.cpan.org/~jquelin/POE-Component-Client-MPD-0.4.2/
a full-blown mpd client library
----
PathTools-3.25
http://search.cpan.org/~kwilliams/PathTools-3.25/
----
Rose-DB-Object-0.764_03
http://search.cpan.org/~jsiracusa/Rose-DB-Object-0.764_03/
Extensible, high performance RDBMS-OO mapper.
----
Sort-Key-OID-0.01
http://search.cpan.org/~salva/Sort-Key-OID-0.01/
sort OIDs very fast
----
Sudo-0.30
http://search.cpan.org/~landman/Sudo-0.30/
Perl extension for running a command line sudo
----
Test-Image-0.02
http://search.cpan.org/~fotango/Test-Image-0.02/
test an image
----
Test-Trap-v0.0.22
http://search.cpan.org/~ebhanssen/Test-Trap-v0.0.22/
Trap exit codes, exceptions, output, etc.
----
Text-Flow-0.01
http://search.cpan.org/~stevan/Text-Flow-0.01/
Flexible text flowing and word wrapping for not just ASCII output.
----
Text-Forge-4.01
http://search.cpan.org/~maurice/Text-Forge-4.01/
ERB/PHP/ASP-style templating for Perl
----
TipJar-MTA-0.19
http://search.cpan.org/~davidnico/TipJar-MTA-0.19/
outgoing SMTP with exponential random backoff.
----
TipJar-MTA-0.20
http://search.cpan.org/~davidnico/TipJar-MTA-0.20/
outgoing SMTP with exponential random backoff.
----
Tree-Parser-0.12
http://search.cpan.org/~stevan/Tree-Parser-0.12/
Module to parse formatted files into tree structures
----
Tree-Simple-View-0.15
http://search.cpan.org/~stevan/Tree-Simple-View-0.15/
A set of classes for viewing Tree::Simple hierarchies
----
Verilog-Perl-2.380
http://search.cpan.org/~wsnyder/Verilog-Perl-2.380/
----
WWW-Bugzilla-0.10
http://search.cpan.org/~bmc/WWW-Bugzilla-0.10/
Handles submission/update of bugzilla bugs via WWW::Mechanize.
----
WWW-Bugzilla-0.9.1
http://search.cpan.org/~bmc/WWW-Bugzilla-0.9.1/
Handles submission/update of bugzilla bugs via WWW::Mechanize.
----
WWW-Bugzilla-1.0
http://search.cpan.org/~bmc/WWW-Bugzilla-1.0/
Handles submission/update of bugzilla bugs via WWW::Mechanize.
----
WebService-Reflexa-0.02
http://search.cpan.org/~zigorou/WebService-Reflexa-0.02/
Perl wrapper for Japanese assoc word search engine. (http://labs.preferred.jp/reflexa/)
----
WebService-Timelog-0.03
http://search.cpan.org/~kentaro/WebService-Timelog-0.03/
A Perl interface to Timelog API
----
YAML-LibYAML-0.04
http://search.cpan.org/~ingy/YAML-LibYAML-0.04/
LibYAML bindings for Perl
----
YAML-LibYAML-0.05
http://search.cpan.org/~ingy/YAML-LibYAML-0.05/
LibYAML bindings for Perl
----
YAML-Tiny-1.09
http://search.cpan.org/~adamk/YAML-Tiny-1.09/
Read/Write YAML files with as little code as possible
----
ack-1.62
http://search.cpan.org/~petdance/ack-1.62/
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: Tue, 22 May 2007 08:56:02 +0800
From: "Ken Soon" <csoon@xilinx.com>
Subject: Re: Passing variables into another script
Message-Id: <f2tf9k$oko1@cnn.xilinx.com>
Ah thanks alot people.
Think Martin's is short and sweet. :)
Oh also sorry I didn't mentioned I am using Perl in windows so not sure
about %ENV and other Unix-related stuffs.
This didn't work though cause i guess $dump and $ftc were already assigned
"and" & "settings\csoon\file".
Try
print "directory = '$directory'\n";
print "dump = '$dump'\n";
print "ftc = '$ftc'\n";
Oh yah I wanted to sub modules both the side1.pl and side2.pl into main.pl
but I ran into problems of dynamic hashes not being to hold any data so I
have to restart the operations for both side scripts.\
Ken
------------------------------
Date: Mon, 21 May 2007 17:50:18 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Passing variables into another script
Message-Id: <slrnf548ha.jdu.tadmc@tadmc30.august.net>
Martijn Lievaart <m@rtij.nl.invlalid> wrote:
> Try:
>
> system "side1.pl", "$directory", "$dump", "$ftc";
Try,
system "side1.pl", $directory, $dump, $ftc;
> and read perldoc -f system.
and read perldoc -q vars.
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Mon, 21 May 2007 20:21:50 -0500
From: Tad McClellan <tadmc@augustmail.com>
Subject: Re: Passing variables into another script
Message-Id: <slrnf54hde.ldt.tadmc@tadmc30.august.net>
Ken Soon <csoon@xilinx.com> wrote:
> Oh also sorry I didn't mentioned I am using Perl in windows so not sure
> about %ENV and other Unix-related stuffs.
%ENV is Perl related, not Unix-related.
> but I ran into problems of dynamic hashes
What is a static hash?
--
Tad McClellan SGML consulting
tadmc@augustmail.com Perl programming
Fort Worth, Texas
------------------------------
Date: Tue, 22 May 2007 09:44:55 +0800
From: "Ken Soon" <csoon@xilinx.com>
Subject: Re: Passing variables into another script
Message-Id: <f2ti59$ouu5@cnn.xilinx.com>
Ah Sorry, made a mistake here about %ENV.
Because I used hashes whose name changes to hold different keys and values.
Well that's the name I have been told by my friend though. Not sure if it is
the right way to call it.
ah thanks Tad too.
system "side1.pl", $directory, $dump, $ftc;
works well too!
"Tad McClellan" <tadmc@augustmail.com> wrote in message
news:slrnf54hde.ldt.tadmc@tadmc30.august.net...
> Ken Soon <csoon@xilinx.com> wrote:
>
>
>> Oh also sorry I didn't mentioned I am using Perl in windows so not sure
>> about %ENV and other Unix-related stuffs.
>
>
> %ENV is Perl related, not Unix-related.
>
>
>> but I ran into problems of dynamic hashes
>
>
> What is a static hash?
>
>
> --
> Tad McClellan SGML consulting
> tadmc@augustmail.com Perl programming
> Fort Worth, Texas
------------------------------
Date: Tue, 22 May 2007 08:30:29 +0200
From: Martijn Lievaart <m@rtij.nl.invlalid>
Subject: Re: Passing variables into another script
Message-Id: <pan.2007.05.22.06.30.46@rtij.nl.invlalid>
On Mon, 21 May 2007 17:50:18 -0500, Tad McClellan wrote:
> Martijn Lievaart <m@rtij.nl.invlalid> wrote:
>
>> Try:
>>
>> system "side1.pl", "$directory", "$dump", "$ftc";
>
>
> Try,
>
> system "side1.pl", $directory, $dump, $ftc;
Raaaaaaghhhhhh, I do it again. And only in this group I swear, never in
my own programs..... :-(
Thanks for the correction.
M4
------------------------------
Date: Mon, 21 May 2007 12:57:24 -0700
From: Jim Gibson <jgibson@mail.arc.nasa.gov>
Subject: Re: Script to compare two directory structures
Message-Id: <210520071257247176%jgibson@mail.arc.nasa.gov>
In article <f2qg7g$e3e$1@news.xmission.com>, Kenny McCormack
<gazelle@xmission.xmission.com> wrote:
> In article <g5ednYCG5bfQFdnbnZ2dnUVZ_oHinZ2d@comcast.com>,
> Ed Morton <morton@lsupcaemnt.com> wrote:
> ...
> >diff -r dir1 dir2
> >
> >If that doesn't work for you, explain why.
> >
> > Ed.
>
> From what I can tell, "diff -r" actually compares (performs the 'diff'
> functionality on) every file that it encounters. That's not strictly
> speaking the same as that which most people intuitively assume when they
> think of comparing directory structures.
>
> What I am getting at is that what "most people intuitively assume when
> they think of comparing directory structures" is comparing things at the
> time-stamp level, not at the file contents level. The implications of
> this are:
> 1) That comparing byte for byte is time-intensive (and usually
> unnecessary)
> 2) That, especially on non-Unix systems, performing the 'diff'
> functionality on binary files is not exactly a well-defined
> operation.
>
> Therefore, it would still be nice to have a Unix-based util that is
> more akin to the sorts of things that many of us are familiar with on,
> e.g., the MS Windows platform.
>
I am not familiar with utilities to compare directory structures on the
MS Windows platform, but were I to write a program to compare directory
structures (not file contents), I would use the File::Find module to
recursively get file names in each directory tree, the stat function to
get the modification times, and hashes to save and compare the
resulting data.
Good luck!
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com
------------------------------
Date: Tue, 22 May 2007 02:55:29 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: Re: Unicode in regexp
Message-Id: <f2tkm5$3r0$1@ns.felk.cvut.cz>
> I have some text which has unicode character \u+2013 for example:
> PERFORMANCE - A COMPARATIVE STUDY
>
> How can I find this character and change it to two - characters for
> LaTeX?
>
> Somehow next code doesn't work, assuming that $str contains string
> mentioned earlier:
>
> $str =~ s/\x{2013}/--/g;
>
Maybe help you this:
$str =~ s/\x20\x13/--/g;
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: 21 May 2007 22:41:36 -0700
From: "ebankgame.com" <eBankGame2010@gmail.com>
Subject: www.eBankGame.com Buy WoW gold RS gold WG k gold
Message-Id: <1179812496.114197.84200@r3g2000prh.googlegroups.com>
www.eBankGame.com Buy WoW gold RS gold WG k gold
www.eBankGame.com (w w w .e BankGame . c o m )
As you might or might not known that Taiwan earthquake has caused most
of supplier are experiencing the serve problem to process the gold.
However, eBankGame is always stay line with all the game players to
help you guys to enjoy the game at any time. We provide Gold Farmer
service for you to own the gold with little bit expense. Your expense
will be more valuable by take one action and gain multiple purposes.
The service is focus on gold farming for your character in the game by
using professional human player to taking tasks and gain reputation in
the game in order to gain the gold for you (We do not apply any plug-
in or Bots on your character). Meanwhile your character will be
improved 1-15 power leveling which depends on your original level
(this aspect is not available for Level 60). www.eBankGame.com (w w
w .e BankGame . c o m)
1.The Fastest Delivery Speed on all Servers in 1-8 hours since your
payment arrives.If the deliver is delayed over 8 hours, you will get
5% extra gold for the late.Or you can request a refund.
2.Special Discount Servers.Sometimes, there will be some servers,
with
special discounts, with extremely NICE PRice on some certain servers.
3.Perfect Service.24 hours service with various contact methods: MSN,
ICQ, Online Chat on Web homepage,Welcome to www.eBankGame.com
If any problem, please contact us asap!
Happy shopping!
Sincerely,
www.eBankGame.com
E-mail:ebankgame2010@gmail.com
MSN:ebagame2010@msn.com
ICQ:468873592
Choose your game
World of Warcraft EU
World of Warcraft US
Lord of The Rings EU
Lord of The Rings US
Lineage II
EverQuest2
Guild Wars
Final Fantacy XI
Runescape 2
RFO Online
Dungeons & Dragons Online
Eve Online
Star Wars Galaxies
------------------------------
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 450
**************************************
