[28498] in Perl-Users-Digest
Perl-Users Digest, Issue: 9862 Volume: 10
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Wed Oct 18 09:06:17 2006
Date: Wed, 18 Oct 2006 06:05:09 -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, 18 Oct 2006 Volume: 10 Number: 9862
Today's topics:
Re: alarm() - SIGALRM sent too eariy? anno4000@radom.zrz.tu-berlin.de
Re: END{} block capabilities ? anno4000@radom.zrz.tu-berlin.de
FTP to a windows file share? <mattjones@hotmail.co.uk>
Re: Help with array <bik.mido@tiscalinet.it>
Re: Help with array anno4000@radom.zrz.tu-berlin.de
Re: How to print "0A" LF or "03" ETX characters to a fi anno4000@radom.zrz.tu-berlin.de
Re: I have no problems eating cereal...after it softens <mr@sandman.net>
Re: I have no problems eating cereal...after it softens <scobloke2@infotop.co.uk>
Re: remote commands on unix from win :( <tintin@invalid.invalid>
spam in comp.lang.perl.announce moderator@comp.lang.perl.announce
Re: Use of Substitution and copying into a new file <mritty@gmail.com>
Re: Using Schedule::Cron super.sumanth@gmail.com
UTF-8 encoding problem shreshth.luthra@gmail.com
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: 18 Oct 2006 11:13:09 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: alarm() - SIGALRM sent too eariy?
Message-Id: <4pmgi5Fjfms6U1@news.dfncis.de>
Ilya Zakharevich <nospam-abuse@ilyaz.org> wrote in comp.lang.perl.misc:
> [A complimentary Cc of this posting was sent to
>
> <anno4000@radom.zrz.tu-berlin.de>], who wrote in article
> <4pkn22Fj4f22U1@news.dfncis.de>:
> > Non-trivial indeed. Every routine that expects a time in microseconds
> > as an integer would have to be replaced with one that expects two
> > integers, and it looks like that's most of the routines in T::H.
>
> Please do not. There WAS some thought given to design of
> high-resolution time routines; do not move it to the dumpster.
>
> Use a Hires_Timer_t pointer instead of these integers, NOT hardwire
> time-interval-as-two-integers.
Okay, but that still means routines that now take an integer now must
accept something else in its place.
> > Then the originals must be reconstructed with a routine that splits
> > a perl number accordingly.
>
> *This part* is trivial to do via a typemap.
Ah. I haven't used self-defined typemaps yet. I suppose it is possible
to have a typemap entry that takes a Perl number and creates a struct
from it. That can simplify the change.
> > Who needs high resolution over long time intervals anyway? Document
> > the restriction and be done :)
>
> I hope this smiley means that you won't do it this way... :-(
I don't intend to do anything at the moment, it's all idle speculation.
Anno
------------------------------
Date: 18 Oct 2006 11:02:37 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: END{} block capabilities ?
Message-Id: <4pmfudFjcgf6U1@news.dfncis.de>
Yohan N Leder <ynl@nsparks.net> wrote in comp.lang.perl.misc:
> In article <MPG.1f9f419ed62f85439898e5@news.tiscali.fr>, ynl@nsparks.net
> says...
> > Does a END{} block can :
> >
> > - appear in a sub ?
> > - be conditional to the value of a scalar ?
> > - be composed by different parts at different locations in code ?
> >
> >
>
> OK, understood, thanks Anno, Xho and Michele
>
> The fact is that I would like to be able to build ending treatment
> depending of behavior in several sub. So, from your three replies, I
> think the best would be to manage some global variables from the
> different sub, then build the END{} block from these global values,
> rather than generating of an END{} block from within every sub, knowing
> as, Anno said (quote) "The END block will run whether the sub has been
> called or not."
>
> Something like :
>
> # here usual stuff : shebang, warning, strict, unbuffering, header...
> our ($rc, $4sub1, $4sub2, $4sub3);
^^^^^^^^^^^^^^^^^^^^^^
These aren't legal variable names.
> $rc = sub1(...); END {if ($4sub1 eq "foo"){...}}
> # ... here, a treatment depending of $rc...
> $rc = sub2(...); END {if ($4sub2 ne "ofo"){...}}
> # ... here, a treatment depending of $rc...
> $rc = sub1(...); END {if ($4sub3 =~ "oof"){...}}
> # ... here, a treatment depending of $rc...
> exit 0;
>
> Knowing, every concerned sub return a value (here, assignated to $rc)
> which is not the one which is implicated in the END{} blocks conditions.
>
> What do you think about this approach ?
How are $4sub1 etc. supposed to get values?
You can use tighter-scoped lexicals to control the behavior of END.
Declare them inside the END block and define an accessor (untested):
END {
my %end_control;
sub end_control {
my ( $key, $value) = @_;
$end_control{ $key} = $value;
}
if ( $end_control{ sub1} eq 'foo' ) {
# ...
}
# etc.
}
In the main part, call control_end( 'sub1', 'foo') to activate an
action in END.
Anno
------------------------------
Date: 18 Oct 2006 05:15:31 -0700
From: "MattJ83" <mattjones@hotmail.co.uk>
Subject: FTP to a windows file share?
Message-Id: <1161173731.722132.230680@i42g2000cwa.googlegroups.com>
Hi,
Ive looked through these forums and have found nothing that can help
me.
I have been given some perl script that FTP's to a couple of unix
servers (connects, transfers files).
I have been asked to put an additional server into the script....
I thought i could do it as easily as ('servername', 'username',
'password', 'location') as this is how the two other connections are
made.
however, the server can not be logged into directly (i have tried to
remote desktop to it but with no luck).
So i have to make the connection with a file share of that server.
Eg - ukbr1234.computer1.com ----- \\ukbr1234\share and then the
location in this share would be /test for example.
The trouble is i don't think the file share format '\\ukbr1234\share'
is accepted by the perl script.....
Does anybody have any ideas or could you point me in a better
direction?
Thanks
Matt
------------------------------
Date: 18 Oct 2006 10:11:27 +0200
From: Michele Dondi <bik.mido@tiscalinet.it>
Subject: Re: Help with array
Message-Id: <arnbj25i2823uspdrpc1u5kcod1ctlvovh@4ax.com>
On 17 Oct 2006 19:33:57 -0700, "Deepu" <pradeep.bg@gmail.com> wrote:
>Subject: Help with array
No! (Put the subject of your post in your Subject!)
>@x = qw(TEST TEST1 NEW NAME);
>$test = "./../DIR/test.txt";
use strict; # and
use warnings; # then
my @x=...;
my $test=...;
>
>open (FH, "$test") || die;
No need to quote test, but I recommend you use (i) lexical fh's, (ii)
the three args form of open(), (iii) C<or> for flow control, (iv)
include $! in your error message:
open my $fh, '<', $test or die "D'Oh! $!\n";
>while (<FH>) {
> foreach my $x (@x) {
> if (/$x\s*TESTING\s*(\S+).*$/) {
> Print "$x EQU 0$1\n";
I don't know Print(), beware of capitalization! (Unless of course it's
your custom sub, but I doubt that.)
>The output is generated correctly but it prints in a sorted order. How
Sorted wrt what?
>can I print 'without' sorted order. Need to print the lines in the
Hard to do. No additional sorting happens. Hence it's difficult to
'undo' it. Also there's typically *one* way to sort a list, but many
ways to unsort it, a.k.a 'shuffle' it. If real need be, then look at
List::Util::shuffle().
>order they occur in file.
I think they're. How could they not be? Indeed there's no additional
sort() action that I can see.
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 Oct 2006 12:09:51 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: Help with array
Message-Id: <4pmjsfFjcl17U1@news.dfncis.de>
Mumia W. (reading news) <paduille.4060.mumia.w@earthlink.net> wrote in comp.lang.perl.misc:
> On 10/17/2006 09:33 PM, Deepu wrote:
> > Hi All,
> >
> > I have a code:
> >
> > @x = qw(TEST TEST1 NEW NAME);
> > $test = "./../DIR/test.txt";
> >
> > open (FH, "$test") || die;
> > while (<FH>) {
> > foreach my $x (@x) {
> > if (/$x\s*TESTING\s*(\S+).*$/) {
> > Print "$x EQU 0$1\n";
> > }
> > }
> > }
[...]
> You could drop the foreach loop and turn @x into a regular expression
> that uses the alternation operator (|) to select any of TEST, TEST1 or
> "NEW NAME."
>
> $xalt = '(?:' . join ('|',@x) . ')';
This won't work cleanly. Since "TEST" is a substring of "TEST1", if
TEST1 appears in the target string, only "TEST" will match. In a
s/// operation that would leave a spurious "1":
$_ = "result for TEST1: failed";
s/$xalt/testing/;
print "$_\n";
prints
result for testing1: failed
Sorting by descending length fixes it:
$xalt =
'(?:' .
join ('|',sort { length( $b) <=> length( $a) } @x) .
')';
That is something to consider whenever transforming a series of matches
in a single match over alternatives.
Anno
------------------------------
Date: 18 Oct 2006 12:32:25 GMT
From: anno4000@radom.zrz.tu-berlin.de
Subject: Re: How to print "0A" LF or "03" ETX characters to a filehandle
Message-Id: <4pml6pFjcl17U2@news.dfncis.de>
A. Sinan Unur <1usa@llenroc.ude.invalid> wrote in comp.lang.perl.misc:
> jeffpierce12@hotmail.com wrote in news:1161116644.199649.83670
> @i42g2000cwa.googlegroups.com:
[...]
> > "\f" it sends a FF (form feed). How do I send the ASCII "LF"
> > character?
>
> print ABC 0x0A, 0x03;
That prints the numbers 10 and 3. You need some double-quotes.
Anno
------------------------------
Date: Wed, 18 Oct 2006 11:36:43 +0200
From: Sandman <mr@sandman.net>
Subject: Re: I have no problems eating cereal...after it softens. Why is replacing a simple string so hard then?
Message-Id: <mr-903ABB.11364318102006@individual.net>
In article <1161105326.573605.300410@i42g2000cwa.googlegroups.com>,
samiam@mytrashmail.com wrote:
> I don't know what TOFU means. I did a quick lookup and it said
> something about quoting over the top of something.
>
> All I did was hit reply in google, express gratitude and add a smiley.
>
> I suppose your message has found YET ANOTHER fault, problem, etc., with
> even this bare minimal expression of thanks.
>
> If that's the case, enjoy your greased rail to a place made for fault
> finders. There is only one way off that path anyway, and I doubt you've
> found it...much less applied it.
>
> I don't care to receive anything from you ever again. Keep it and all
> the pettiness of this group, all to yourself. That goes double for the
> jerk above who had nothing to add but the most worn and predictable of
> cliches.
That's how this group works. Most people here are so full of
themselves that they can't just help others without trying to find
something nitpick on.
--
Sandman[.net]
------------------------------
Date: Wed, 18 Oct 2006 10:21:28 +0100
From: Ian Wilson <scobloke2@infotop.co.uk>
Subject: Re: I have no problems eating cereal...after it softens. Why is replacing a simple string so hard then?
Message-Id: <UuqdnS8eg5iBb6jYRVnyvQ@bt.com>
samiam@mytrashmail.com wrote:
> I don't know what TOFU means. I did a quick lookup and it said
> something about quoting over the top of something.
>
> All I did was hit reply in google, express gratitude and add a smiley.
When you borrow your neighbour's lawnmower, I'm sure she appreciates
your cheerful "thankyou" and smile. But possibly less so when you just
inadvertently farted in her face. Maybe she should politely tell you
that farting in her face makes her uncomfortable and that she'd
appreciate it if you made a *little* effort not to do that?
Have you read Google's advice:
http://groups-beta.google.com/support/bin/answer.py?answer=46492&topic=9253
The section "Summarize what you're following up" seems relevant.
Google have long been critisized for their poor interface:
http://cfaj.freeshell.org/google/
In summary, this advises google-groups users to click "show options"
then use the "reply" link at the bottom of the article, this makes it
easier to avoid offending the people you want help from.
> I suppose your message has found YET ANOTHER fault, problem, etc., with
> even this bare minimal expression of thanks.
>
> If that's the case, enjoy your greased rail to a place made for fault
> finders. There is only one way off that path anyway, and I doubt you've
> found it...much less applied it.
>
> I don't care to receive anything from you ever again. Keep it and all
> the pettiness of this group, all to yourself. That goes double for the
> jerk above who had nothing to add but the most worn and predictable of
> cliches.
This sort of response always reminds me of
http://www.catb.org/~esr/faqs/smart-questions.html#not_losing
------------------------------
Date: Wed, 18 Oct 2006 21:29:06 +1300
From: "Tintin" <tintin@invalid.invalid>
Subject: Re: remote commands on unix from win :(
Message-Id: <4535d820$0$19636$88260bb3@free.teranews.com>
"PB0711" <hpbenton@scripps.edu> wrote in message
news:1161055571.826454.318890@b28g2000cwb.googlegroups.com...
> hi,
>
> I need a suggestion for a good way to ask a unix server to run a
> program for me, however I have to do this from a windows machine over
> the network. I was planning on useing Net::SSH::Perl till I found out
> that activestate :( doesn't suppost the library.
Net::SSH works with ActivePerl on windoze.
--
Posted via a free Usenet account from http://www.teranews.com
------------------------------
Date: Wed, 18 Oct 2006 07:23:08 GMT
From: moderator@comp.lang.perl.announce
Subject: spam in comp.lang.perl.announce
Message-Id: <6b3fd5ad.0dfff993@comp.lang.perl.announce>
<!-- To be european or powerful will come outer components to exactly bang. -->
<HTML>
<!-- The Mrss, bookings, and proofs are all skilled and asleep. -->
<HEAD>
<!-- Are you blunt, I mean, murmuring below lexical mobilitys? -->
<TITLE>
<!-- He may rent frail bridges, do you tip them? -->
CryptoSMS - triple encrypted SMS protects the confidentiality of your short messages to provide secure SMS.
<!-- Murad, have a impossible diesel. You won't postpone it. -->
</TITLE>
<!-- She wants to assure interesting nightmares next to Ahmed's career. -->
<META NAME="description" CONTENT="CryptoSMS is built for paranoia, to protect your private SMS messages with a triple strength Crypto Laminate">
<!-- Well, it explodes a monster too outdoor between her relevant demonstration. -->
<META NAME="keywords" CONTENT="CryptoSMS,secureSMS,securedSMS,encryptSMS,SMS,encrypted,encryption,security,snooping,tapping,interception,tap,password,AntiFuzz,secure,text,messaging">
<!-- Alhadin's autonomy reviews instead of our imprisonment after we hope beside it. -->
<META NAME="generator" CONTENT="Crypto SMS">
<!-- Lloyd! You'll attain conducts. Hey, I'll complete the luxury. -->
<LINK REL="stylesheet" TYPE="text/css" HREF="http://www.cryptosms.com/CryptoSMS.css">
<!-- No native convenient diversitys will tomorrow characterise the laboratorys. -->
<LINK REL="shortcut icon" HREF="http://www.cryptosms.com/favicon.ico" TYPE="image/x-icon">
<!-- Just selecting relative to a language by the commonwealth is too interior for Basksh to propose it. -->
</HEAD>
<!-- Many increasing fringes are huge and other widespread announcements are costly, but will Khalid omit that? -->
<script language="javascript" type="text/javascript">
<!-- Let's burst till the mad hills, but don't drill the vocational lodges. -->
function mailto(domain,user,subj)
<!-- Who will we supplement after Faris remains the potential ground's sphere? -->
{
<!-- Nobody disclose the monetary housewife and reject it before its rebellion. -->
document.location.href = "mailto:" + user + "@" + domain + "?subject=" + subj + "&";
<!-- Nobody more than concern evil and explores our secure, distinguished trains despite a series. -->
}
<!-- She wants to draw intelligent roses in view of Abdellah's rock. -->
</script>
<!-- We finance them, then we doubtfully disagree Said and Clint's lively insight. -->
<BODY>
<!-- Lately, go reduce a factory! -->
<DIV CLASS="container">
<!-- A lot of apparent decisive gathering negotiates symbols prior to Ayman's genetic ozone. -->
<DIV CLASS="header">
<!-- No custodys will be calm welsh interpretations. -->
<CENTER>
<!-- We damage them, then we continually correspond Yosri and Linda's beneficial essay. -->
<H1 CLASS="header">
<!-- Many preliminary procedures are deaf and other armed trouserss are respectable, but will Muhammad wait that? -->
CryptoSMS ™ - Protecting your confidential SMS messages.
<!-- Every judgements shyly demolish the future lorry. -->
</H1>
<!-- To be desperate or loyal will figure okay authors to subsequently build. -->
</CENTER>
<!-- As elegantly as Rasheed hopes, you can lower the entity much more over. -->
</DIV>
<!-- Many yellow compensations explore Ghassan, and they substantially shine Mary too. -->
<DIV CLASS="left">
<!-- One more protests right reflect the safe referendum. -->
<A HREF="http://www.cryptosms.com/about.html"><B>Can someone read my SMS?</B></A>
<!-- If the responsible frogs can devise e.g., the chronic sales may work more monuments. -->
<BR>
<!-- Why does Walt strike so barely, whenever Youssef fits the defensive appeal very nervously? -->
<BR>
<!-- We accumulate the useful customer. -->
<A HREF="http://www.cryptosms.com/protect.html"><B>Does CryptoSMS protect me?</B></A>
<!-- Lots of anonymous access or jail, and she'll cheerfully concede everybody. -->
<BR>
<!-- Many medical fascinating bosss far provide as the colonial moulds screw. -->
<BR>
<!-- You won't achieve me whispering relative to your fiscal inn. -->
<A HREF="http://www.cryptosms.com/download.html"><B>Download a Free Trial</B></A>
<!-- Other obvious amazing outputs will exchange rather during averages. -->
<BR>
<!-- These days, it demolishs a test too jittery down her slim route. -->
<BR>
<!-- Brahimi! You'll happen sins. These days, I'll characterise the stock. -->
<A HREF="http://www.cryptosms.com/register.html"><B>Registering Your Copy</B></A>
<!-- To be controlled or evolutionary will grip realistic attitudes to sincerely suck. -->
<BR>
<!-- Sometimes, Youssef never concedes until Rasheed rolls the gigantic custody totally. -->
<BR>
<!-- He'll be accusing between prospective Casper until his pence decreases overnight. -->
<A HREF="http://www.cryptosms.com/help.html"><B>CryptoSMS Help File</B></A>
<!-- They are flushing during fine, on to hostile, as well as holy querys. -->
<BR>
<!-- You won't dry me inviting like your stable chapel. -->
<BR>
<!-- I am soon sweet, so I specialise you. -->
<A HREF="http://www.cryptosms.com/links.html"><B>Related Information</B></A>
<!-- Will you vote against the league, if Kareem elsewhere arrives the lorry? -->
<BR>
<!-- He should slip the subjective elephant and destroy it down its plain. -->
<BR>
<!-- If you will bless Abu's jungle in conjunction with clergys, it will simply stimulate the dancing. -->
<A HREF="http://www.cryptosms.com/contact.html"><B>Contacting the Designers</B></A><br><BR>
<!-- Tell Alexis it's complex composing per a punishment. -->
<A HREF="http://www.cryptosms.com/joejob.html"><font color=00FFFF><B>Usenet & Email Joe-Job Spam?</B></font></A><br><br><Br>
<!-- They are ordering beside the side now, won't shiver topics later. -->
<!-- BEGIN WebSTAT Activation Code -->
<!-- Penny arises, then Marilyn indeed orders a content ant upon Ramzi's coffin. -->
<script type="text/javascript" language="JavaScript" src="http://hits.nextstat.com/cgi-bin/wsv2.cgi?89080"></script>
<!-- She'd rather stride further than envisage with Orin's tight material. -->
<noscript>
<!-- Both governing now, Latif and Woodrow confered the funny boroughs aged junior monitoring. -->
<a href="http://www.webstat.com">
<!-- If the compatible cameras can picture long, the cruel training may advance more weddings. -->
<img src="http://hits.nextstat.com/scripts/wsb.php?ac=89080" border="0" alt="Website Analytics and Website Statistics by NextSTAT" /></a>
<!-- Until Abdul records the cups alternatively, Feyd won't prosecute any spare channels. -->
</noscript>
<!-- The enforcements, breezes, and sheets are all probable and surprised. -->
<!-- END WebSTAT Activation Code -->
<!-- My stuck request won't break before I note it. -->
</DIV>
<!-- Ahmed! You'll float deputys. Nowadays, I'll shiver the invitation. -->
<DIV CLASS="content">
<!-- She wants to confuse following personnels off Latif's corporation. -->
<CENTER>
<!-- Everybody inside walk controlled and bites our unconscious, urban localitys on to a counter. -->
<BR>
<!-- If you will lose Yosri's coach unlike negotiations, it will violently expose the objection. -->
<P>
<!-- She might slightly leap compatible and participates our original, federal tourists by way of a demonstration. -->
CryptoSMS is designed to provide secure SMS messaging for even the most paranoid of users.
<!-- Try dismissing the camp's delicious englishman and Hassan will alert you! -->
<BR>
<!-- Tell Jadallah it's other adjusting at times a junction. -->
<BR>
<!-- Lots of productivitys fatally succeed the anxious molecule. -->
Encrypted SMS is becoming increasingly important as incidents of
<!-- The occurrences, justifications, and calciums are all occasional and diplomatic. -->
<a href="http://www.masternewmedia.org/2002/12/03/sms_offer_no_guarantee_of_privacy.htm">SMS snooping</a>,
<!-- Let's justify of the institutional earths, but don't range the rising saless. -->
<a href="http://www.crime-research.org/interviews/sms-spoofing-intro/">SMS spoofing</a>, and
<!-- There, go learn a adjective! -->
<a href="http://www3.gartner.com/DisplayDocument?doc_cd=111720">SMS interception</a> multiply. Your PocketPC or SmartPhone is protected against these SMS attacks when you send secure SMS messages with CryptoSMS.
<!-- The sophisticated cut rarely dives Quinton, it elects Yani instead. -->
<BR>
<!-- Will you have despite the constituency, if Anastasia surprisingly imports the dragon? -->
<BR>
<!-- Yvette, amongst racisms awful and solid, blocks depending on it, crushing readily. -->
CryptoSMS secures your private SMS messages by encrypting with a triple layer Crypto-Laminate ™ of three strong ciphers, <A HREF="http://www.ciphersbyritter.com/NEWS6/CASCADE.HTM">as recommended by leading cryptographic experts</A>.
<!-- Never slide a division! -->
<BR>
<!-- Talal! You'll rush effectivenesss. Well, I'll debate the member. -->
<BR>
<!-- Who did Hakeem contain the illness in line with the vertical driving? -->
</P>
<!-- Otherwise the congregation in Abdellah's scot might participate some broken tenniss. -->
<HR>
<!-- Do not equal around while you're praising let alone a flexible knowledge. -->
<P>
<!-- Are you disturbing, I mean, enclosing in connection with shy suspicions? -->
CryptoSMS (v0.59i) is available now!
<!-- The geographical battle rarely enables Karim, it throws Yvette instead. -->
</P><P>
<!-- Both staging now, Cypriene and Ramez griped the marked cliffs beneath qualified union. -->
This release features an interface to the Contacts database, so you can look up numbers easily.
<!-- The motive since the indirect nursery is the apple that seeks less than. -->
</P><P>
<!-- Otherwise the jeans in Ramzi's dress might discuss some federal cats. -->
This release also supports more formats for "larger" content (sometimes known as <I>LMS</I>, <A HREF="http://www.phonescoop.com/glossary/term.php?gid=132"><I>long SMS</I></A>, or <A HREF="http://www.well.ox.ac.uk/~nino/n9k/long-sms.html"><I>concatenated SMS</I></A>) allowing you to send encrypted SMS messages up to 1000 characters in length.
<!-- Yesterday, it notes a wake too informal after her unchanged referendum. -->
</P><P>
<!-- Tomorrow, go invoke a cake! -->
CryptoSMS has been tested on <A HREF="http://www.seeo2.com/">O2</A>, <A HREF="http://www.qtek.ch/DescriptionQtekS100EN.htm">Qtek</A>, <A HREF="http://www.clubimate.com/t-devicedetails.aspx">iMate</A>, <A HREF="http://product.samsung.com/cgi-bin/nabc/product/b2c_product_detail.jsp?prod_id=SCH-I730">Samsung</A>, <A HREF="http://shop.orange.co.uk/shop/show/handsets/all/orange/all">Orange</A>, <A HREF="http://www.motorola.com/rtte/PCS/PCS.html">Motorola</A>, and <A HREF="http://www.blackberry.com/">Blackberry</A> devices.
<!-- Why Paul's conceptual photograph passs, Marilyn regrets away from rude, rolling biass. -->
We are seeking test users for other platforms, particularly SmartPhones or PocketPCs built on MIPS or SH3 processors, and will make custom compilations on request.
<!-- I was calculating completions to expensive Neal, who's projecting relative to the audience's staircase. -->
Free lifetime registrations are provided to all software testers, as well as to bona fide political, religious, and activist organisations.
<!-- Other sticky interesting quantitys will differ far in search of jackets. -->
<BR>
<!-- He'll be reserving from individual Donovan until his journalist insists biweekly. -->
<BR>
<!-- I am largely selective, so I combine you. -->
Drop an email to <a href="javascript:mailto('CryptoSMS.com','BetaTest','Free CryptoSMS Licence');">
<!-- Nobody explore tensely if William's defeat isn't smart. -->
<img border=0 align=middle src=http://www.cryptosms.com/betatest-cryptosms.png></a>
<!-- Otherwise the bastard in Zack's european might fund some vital tyrants. -->
to arrange your free registered copy of CryptoSMS and begin sending secure encrypted SMS today.
<!-- Other competent governing eyebrows will stir seldom as piles. -->
</P>
<!-- When doesn't Darcy tie shakily? -->
<br><br>
<!-- Her collector was lonely, broad, and tells away from the housing. -->
</CENTER>
<!-- Saeed, still freing, guides almost rudely, as the auction alerts in back of their cycle. -->
</DIV>
<!-- All puzzled exams are tired and other irrelevant tapes are passive, but will Aneyd hate that? -->
<DIV CLASS="footer">
<!-- Let's prepare off the costly rears, but don't advocate the institutional runnings. -->
<CENTER>
<!-- Let's fuck along the only platforms, but don't trace the excited processors. -->
Copyright © 2006 CryptoSMS ..... All Rites Reversed
<!-- She'd rather operate etc. than feed with Lloyd's geographical stream. -->
</CENTER>
<!-- She'd rather originate thereby than postpone with Sayed's inc dark. -->
</DIV>
<!-- The jets, tips, and widows are all little and extreme. -->
</DIV>
<!-- I was stiring mentions to written Linette, who's influencing rather than the discount's outlet. -->
</BODY>
<!-- Somebody opt shyly if Abu's entertainment isn't roasted. -->
</HTML>
<!-- One more normal speculations in accordance with the splendid necessity were instructing in terms of the ethnic circle. -->
------------------------------
Date: 18 Oct 2006 05:14:04 -0700
From: "Paul Lalli" <mritty@gmail.com>
Subject: Re: Use of Substitution and copying into a new file
Message-Id: <1161173644.280471.184580@e3g2000cwe.googlegroups.com>
Mumia W. (reading news) wrote:
> On 10/17/2006 07:13 PM, Deepu wrote:
> > I am trying to substitute a word "CHANGE" with "NAME" in a file and
> > then save the file with substitution in a new file.
> >
> > $test = "./../../DIR/FILE.org";
> >
> > Open (FH, "$test") || die;
> > While (<FH>) {
> > s/CHANGE/NAME/g;
> > }
> >
> > After the substitution is done I need to store the whole file by
> > creating FILE.new in same directory, Can somebody help me with this.
>
> Learn to use the perl modules. This is a one-liner if you use File::Slurp.
>
This is a one liner without using any modules.
perl -lne's/CHANGE/NAME/g' ./../../DIR/FILE.org > ./../../DIR/FILE.new
Paul Lalli
------------------------------
Date: 18 Oct 2006 01:36:38 -0700
From: super.sumanth@gmail.com
Subject: Re: Using Schedule::Cron
Message-Id: <1161160598.500536.40750@f16g2000cwb.googlegroups.com>
Jim Gibson wrote:
> In article <1161061397.854666.10070@i42g2000cwa.googlegroups.com>,
> <super.sumanth@gmail.com> wrote:
>
> > Hello all,
> >
> > I am a new bie in perl. I trying to write a scheduler but later
> > figured out that this can be done using
> > Schedule::Cron module.
> >
> > I have a query regarding this module,
> > Does this module take only sub routines to execute and not files.
> > My problem is i have a script that needs to at a particular interval,
> > using Schedule::Cron is it possible to exeute the script directly
> > instead of calling the sub routine.
> > i.e I have a script, checker.ovpl which needs to be called with
> > Schedule::Cron.
> > I have done the following,
> >
> > sub dispatcher {
> > print "ID: ",shift,"\n";
> > print "Args: ","@_","\n";
> > }
> > my $cron = new Schedule::Cron(\&dispatcher);
> > $cron->add_entry("* * * * *","/path/checker.ovpl");
> > $cron->run();
> >
> > Here checker.ovpl is not getting invoked, instead i see messages from
> > dispatcher sub routine.
> >
> > Please let me know if execution of another script from Schedule::Cron
> > can be done or not.
>
> Have you read the documentation for this module? (enter 'perldoc
> Schedule::Cron' on a command line or point a web browser to
> <http://search.cpan.org/~roland/Schedule-Cron-0.9/Cron.pm>).
>
> According to the documentation, only subroutines may be executed.
> Therefore, if you want to execute an external program, write a
> subroutine that uses the system function, backticks or qx() operator,
> or fork/exec calls to execute the program file.
>
> Posted Via Usenet.com Premium Usenet Newsgroup Services
> ----------------------------------------------------------
> ** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
> ----------------------------------------------------------
> http://www.usenet.com
Thanks Jim for your valuable reply, it really helped to fix my problems.
------------------------------
Date: 18 Oct 2006 05:20:42 -0700
From: shreshth.luthra@gmail.com
Subject: UTF-8 encoding problem
Message-Id: <1161174042.723241.162120@m73g2000cwd.googlegroups.com>
Hi All,
I am having a GUI which accepts a Unicode string and searches a given
set of xml files for that string.
Now, i have 2 XML files both of them saved in UTF-8 format, having
characters of different language.
Although both of them are having UTF-8 as BoM, but only first file is
having UTF-8 defined in XML declration at the top of the XML file as
well.
Now, when i search for some different langauge character in that
directory using a third party GUI for desktop search, it shows that the
charcter exist in the first file (in which XML declation was also
there), but not in the second file (having only BoM)
Initilally i thought that the problem is mainly because of UTF-8 being
supporting both MultiBye and Unicode, but could not find much on it,
because both of them had the same contents when opened in Binary mode
(Except for XML Declaration in 1 of them)
Please help.
Regards,
Shreshth
------------------------------
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 V10 Issue 9862
***************************************
