On Fri, Nov 28, 2008 at 10:21:03PM -0500, Chas. Owens wrote:
> It looks like you need a schwartzian transform* on the results of
> $mesg->all_entries:
>
> #replaces "foreach my $entry ($mesg->all_entries) {"
> my @entries =
> map { $_->[0] }
> sort { $a->[1
On Fri, Nov 28, 2008 at 22:21, John W. Krahn <[EMAIL PROTECTED]> wrote:
> Chas. Owens wrote:
>>
>> On Fri, Nov 28, 2008 at 10:28, John W. Krahn <[EMAIL PROTECTED]> wrote:
>> snip
>>>
>>> perl -le'@chars = 33 .. 126; print map chr $chars[ rand @chars ], 1 .. 8'
>>
>> snip
>>
>> Perl Golf time:
>>
>>
Chas. Owens wrote:
On Fri, Nov 28, 2008 at 10:28, John W. Krahn <[EMAIL PROTECTED]> wrote:
snip
perl -le'@chars = 33 .. 126; print map chr $chars[ rand @chars ], 1 .. 8'
snip
Perl Golf time:
perl -le'print map chr+(33..126)[rand 94],1..8'
$ perl -le'print map chr+(33..126)[rand 94],1..8'
Wa
On Fri, Nov 28, 2008 at 21:43, John J. Foster
<[EMAIL PROTECTED]> wrote:
> Hi all,
>
> I'm using a little perl script
> (http://bsdconsulting.no/tools/mutt-ldap.pl) to query addresses from
> within mutt. I'd like this script to return a sorted list, either by email
> address or name. The little res
Hi all,
I'm using a little perl script
(http://bsdconsulting.no/tools/mutt-ldap.pl) to query addresses from
within mutt. I'd like this script to return a sorted list, either by email
address or name. The little research I've done points to changes in this
section:
foreach my $entry ($mesg->all_en
2008/11/27 Jenda Krynicky <[EMAIL PROTECTED]>:
> From: Dermot <[EMAIL PROTECTED]>
>> 2008/11/27 Jenda Krynicky <[EMAIL PROTECTED]>:
>> > From: Dermot <[EMAIL PROTECTED]>
>>
>> >
>> > Yes there is something special. The loadable object (.so for unix,
>> > .dll for windows) for
>> > /.../perl/lib/My
On Fri, Nov 28, 2008 at 10:28, John W. Krahn <[EMAIL PROTECTED]> wrote:
snip
> perl -le'@chars = 33 .. 126; print map chr $chars[ rand @chars ], 1 .. 8'
snip
Perl Golf time:
perl -le'print map chr+(33..126)[rand 94],1..8'
--
Chas. Owens
wonkden.net
The most important skill a programmer can have
On Thu, Nov 27, 2008 at 15:04, Yimin Rong <[EMAIL PROTECTED]> wrote:
> wget -q -O - "http://random.org/integers/?
> num=8&min=33&max=126&col=8&base=16&format=plain&rnd=new" | perl -ne
> 'foreach (split(/\t/, $_)) {print chr(hex($_));} print "\n"'
>
> wget reads web pages
> random.org generates rand
On Fri, Nov 28, 2008 at 00:09, Anirban Adhikary
<[EMAIL PROTECTED]> wrote:
snip
> my $lock_file="/home/bighosh/OraOneLoader_3.0.2/Source/flocktest.txt";
> open LOCKFILE, ">>$lock_file" or die "Cannot open $lock_file $!";
>
> while( )
> {
> unless (flock LOCKFILE, LOCK_EX|LOCK_NB) {
> warn "File $lo
Yimin Rong wrote:
wget -q -O - "http://random.org/integers/?
num=8&min=33&max=126&col=8&base=16&format=plain&rnd=new" | perl -ne
'foreach (split(/\t/, $_)) {print chr(hex($_));} print "\n"'
You can simplify the perl part to:
perl -lane'print map chr hex, @F'
Or just using perl:
perl -MLWP::
wget -q -O - "http://random.org/integers/?
num=8&min=33&max=126&col=8&base=16&format=plain&rnd=new" | perl -ne
'foreach (split(/\t/, $_)) {print chr(hex($_));} print "\n"'
wget reads web pages
random.org generates random numbers using atmospheric noise
perl splits the input into tokens and convert
11 matches
Mail list logo
