[29652] in Perl-Users-Digest
Perl-Users Digest, Issue: 896 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Tue Oct 2 00:09:41 2007
Date: Mon, 1 Oct 2007 21: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 Mon, 1 Oct 2007 Volume: 11 Number: 896
Today's topics:
all combinations <stoupa@practisoft.cz>
Re: all combinations <see.sig@rochester.rr.com>
Re: all combinations <tony@skelding.co.uk>
Re: all combinations <tony@skelding.co.uk>
Re: all combinations <peter@makholm.net>
Re: Copy using system <kkeller-usenet@wombat.san-francisco.ca.us>
Re: Copy using system <jurgenex@hotmail.com>
Re: FAQ 4.52 How do I sort an array by (anything)? <w_a_x_man@yahoo.com>
Re: FAQ 4.52 How do I sort an array by (anything)? <allergic-to-spam@no-spam-allowed.org>
Re: How to filter out lines from a variable that has mu <needpassion@gmail.com>
Re: Question on input password on ssh prompt <mluvw47@gmail.com>
SSH2 exceptions on windows xp (perl 5.8.8) <gil.kovary@gmail.com>
Re: the camel perl book <wahab@chemie.uni-halle.de>
Re: the camel perl book <wahab@chemie.uni-halle.de>
Re: the camel perl book <paduille.4061.mumia.w+nospam@earthlink.net>
Re: the camel perl book <elvis-85363@notatla.org.uk>
Re: the camel perl book <allergic-to-spam@no-spam-allowed.org>
Re: The Modernization of Emacs: terminology buffer and <see_website@mindprod.com.invalid>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Tue, 2 Oct 2007 01:49:36 +0200
From: "Petr Vileta" <stoupa@practisoft.cz>
Subject: all combinations
Message-Id: <fds17n$42s$1@ns.felk.cvut.cz>
Maybe this can be a little off topic, so I'm sorry ;-)
I have an array of strings, say
@array = ['a','b','c'];
and I need to call subroutine or use some module to get array of arrays with
all possible combinations. Good message is that all strings in @array must
be used everytime. This reduce number of combinations.
So the result should be
@result = [
['a','b','c'],
['a','c','b'],
['b','a','c'],
['b','c','a'],
['c','a','b'],
['c','b','a']
];
Please can anybody help me to resolve this problem? I'm bad in mathematics
and I don't know how to ask Google. In other word I'm too stupid to resolve
this ;-)
--
Petr Vileta, Czech republic
(My server rejects all messages from Yahoo and Hotmail. Send me your mail
from another non-spammer site please.)
------------------------------
Date: Mon, 01 Oct 2007 20:28:01 -0400
From: Bob Walton <see.sig@rochester.rr.com>
Subject: Re: all combinations
Message-Id: <47019026$0$18996$4c368faf@roadrunner.com>
Petr Vileta wrote:
...
> I have an array of strings, say
> @array = ['a','b','c'];
> and I need to call subroutine or use some module to get array of arrays
> with all possible combinations. Good message is that all strings in
> @array must be used everytime. This reduce number of combinations.
> So the result should be
> @result = [
> ['a','b','c'],
> ['a','c','b'],
> ['b','a','c'],
> ['b','c','a'],
> ['c','a','b'],
> ['c','b','a']
> ];
>
> Please can anybody help me to resolve this problem? I'm bad in
> mathematics and I don't know how to ask Google. In other word I'm too
> stupid to resolve this ;-)
Well, I think what you want is permutations, not combinations, per your
example. And that's a FAQ:
perldoc -q permute
HTH.
--
Bob Walton
Email: http://bwalton.com/cgi-bin/emailbob.pl
------------------------------
Date: Mon, 01 Oct 2007 20:41:10 -0700
From: Mintcake <tony@skelding.co.uk>
Subject: Re: all combinations
Message-Id: <1191296470.095903.138120@d55g2000hsg.googlegroups.com>
On Oct 2, 6:49 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
> Maybe this can be a little off topic, so I'm sorry ;-)
>
> I have an array of strings, say
> @array = ['a','b','c'];
> and I need to call subroutine or use some module to get array of arrays with
> all possible combinations. Good message is that all strings in @array must
> be used everytime. This reduce number of combinations.
> So the result should be
> @result = [
> ['a','b','c'],
> ['a','c','b'],
> ['b','a','c'],
> ['b','c','a'],
> ['c','a','b'],
> ['c','b','a']
> ];
>
> Please can anybody help me to resolve this problem? I'm bad in mathematics
> and I don't know how to ask Google. In other word I'm too stupid to resolve
> this ;-)
> --
>
> Petr Vileta, Czech republic
> (My server rejects all messages from Yahoo and Hotmail. Send me your mail
> from another non-spammer site please.)
If you don't want to use the CPAN module and you're not too worried
about performance the following little program will do what you want.
#!/usr/local/bin/perl
use strict;
use warnings;
my @array = ('a','b','c');
my @result = permute(@array);
print '[' . join(',', map "'$_'", @$_) . "]\n" foreach @result;
sub permute {
return \@_ if @_ == 1;
my @result;
print "@_\n";
for (my $i = 0; $i < @_; $i++) {
my @array = @_;
my $c = splice @array, $i, 1;
push @result, map [$c, @$_], permute(@array);
}
return @result;
}
------------------------------
Date: Mon, 01 Oct 2007 20:54:11 -0700
From: Mintcake <tony@skelding.co.uk>
Subject: Re: all combinations
Message-Id: <1191297251.215644.174420@22g2000hsm.googlegroups.com>
On Oct 2, 10:41 am, Mintcake <t...@skelding.co.uk> wrote:
> On Oct 2, 6:49 am, "Petr Vileta" <sto...@practisoft.cz> wrote:
>
>
>
>
>
> > Maybe this can be a little off topic, so I'm sorry ;-)
>
> > I have an array of strings, say
> > @array = ['a','b','c'];
> > and I need to call subroutine or use some module to get array of arrays with
> > all possible combinations. Good message is that all strings in @array must
> > be used everytime. This reduce number of combinations.
> > So the result should be
> > @result = [
> > ['a','b','c'],
> > ['a','c','b'],
> > ['b','a','c'],
> > ['b','c','a'],
> > ['c','a','b'],
> > ['c','b','a']
> > ];
>
> > Please can anybody help me to resolve this problem? I'm bad in mathematics
> > and I don't know how to ask Google. In other word I'm too stupid to resolve
> > this ;-)
> > --
>
> > Petr Vileta, Czech republic
> > (My server rejects all messages from Yahoo and Hotmail. Send me your mail
> > from another non-spammer site please.)
>
> If you don't want to use the CPAN module and you're not too worried
> about performance the following little program will do what you want.
>
> #!/usr/local/bin/perl
>
> use strict;
> use warnings;
>
> my @array = ('a','b','c');
>
> my @result = permute(@array);
>
> print '[' . join(',', map "'$_'", @$_) . "]\n" foreach @result;
>
> sub permute {
> return \@_ if @_ == 1;
> my @result;
> print "@_\n";
> for (my $i = 0; $i < @_; $i++) {
> my @array = @_;
> my $c = splice @array, $i, 1;
> push @result, map [$c, @$_], permute(@array);
> }
> return @result;
>
>
>
> }- Hide quoted text -
>
> - Show quoted text -- Hide quoted text -
>
> - Show quoted text -
Sorry I left a spurious print statement in the sub. Also note that
the original initialisation of @array should be ('a','b','c') not
['a','b','c'].
------------------------------
Date: Tue, 02 Oct 2007 03:55:23 +0000
From: Peter Makholm <peter@makholm.net>
Subject: Re: all combinations
Message-Id: <87k5q6yxuc.fsf@hacking.dk>
"Petr Vileta" <stoupa@practisoft.cz> writes:
> I have an array of strings, say
> @array = ['a','b','c'];
> and I need to call subroutine or use some module to get array of
> arrays with all possible combinations.
You might want to look at Algorithm::Permute
//Makholm
------------------------------
Date: Mon, 1 Oct 2007 16:52:37 -0700
From: Keith Keller <kkeller-usenet@wombat.san-francisco.ca.us>
Subject: Re: Copy using system
Message-Id: <5rd8t4x9qk.ln2@goaway.wombat.san-francisco.ca.us>
On 2007-10-01, lerameur <lerameur@yahoo.com> wrote:
>
> mkdir ("/ins/$Out_directory/aux", 0777);
> system(`cp -p * /dir/$Out_directory/aux `);
This is really not doing what you probably expect. You're sending the
stdout of the cp command to system! There is likely no stdout, so this
happens:
> I use the above command , the files do get copied, but the command do
> not exit once it is finished. It just hangs there and do not proceed,
> I need to hit ctlr-Z . no error message. what is wrong
So, either use system or use backticks, but definitely not both in the
same command.
--keith
--
kkeller-usenet@wombat.san-francisco.ca.us
(try just my userid to email me)
AOLSFAQ=http://www.therockgarden.ca/aolsfaq.txt
see X- headers for PGP signature information
------------------------------
Date: Tue, 02 Oct 2007 00:12:02 GMT
From: "Jürgen Exner" <jurgenex@hotmail.com>
Subject: Re: Copy using system
Message-Id: <m1gMi.411$Gk2.124@trndny04>
lerameur wrote:
> I wrote a small script in perl.
> this is the line that is buggy:
>
> mkdir ("/ins/$Out_directory/aux", 0777);
> system(`cp -p * /dir/$Out_directory/aux `);
Why are you using the output of the cp command as the argument for system()?
I highly doubt that is what you meant to do.
Anyway, if you want to copy files then you may want to check the File::Copy
module.
jue
------------------------------
Date: Mon, 01 Oct 2007 18:46:32 -0700
From: William James <w_a_x_man@yahoo.com>
Subject: Re: FAQ 4.52 How do I sort an array by (anything)?
Message-Id: <1191289592.621583.198460@50g2000hsm.googlegroups.com>
On Sep 30, 2:03 pm, PerlFAQ Server <br...@stonehenge.com> wrote:
> 4.52: How do I sort an array by (anything)?
[...]
> which could also be written this way, using a trick that's come to be
> known as the Schwartzian Transform:
>
> @sorted = map { $_->[0] }
> sort { $a->[1] cmp $b->[1] }
> map { [ $_, uc( (/\d+\s*(\S+)/)[0]) ] } @data;
>
Ruby:
sorted = data.sort_by{|s| s[ /\d+\s*(\S+)/, 1 ].upcase }
------------------------------
Date: Tue, 2 Oct 2007 04:36:57 +0200 (CEST)
From: Jim Cochrane <allergic-to-spam@no-spam-allowed.org>
Subject: Re: FAQ 4.52 How do I sort an array by (anything)?
Message-Id: <slrnfg3bm2.ohd.allergic-to-spam@no-spam-allowed.org>
On 2007-10-02, William James <w_a_x_man@yahoo.com> wrote:
> On Sep 30, 2:03 pm, PerlFAQ Server <br...@stonehenge.com> wrote:
>
>> 4.52: How do I sort an array by (anything)?
> [...]
>> which could also be written this way, using a trick that's come to be
>> known as the Schwartzian Transform:
>>
>> @sorted = map { $_->[0] }
>> sort { $a->[1] cmp $b->[1] }
>> map { [ $_, uc( (/\d+\s*(\S+)/)[0]) ] } @data;
>>
>
> Ruby:
>
> sorted = data.sort_by{|s| s[ /\d+\s*(\S+)/, 1 ].upcase }
>
Oh, a wiseguy, eh? (Nyuk Nyuk Nyuk!) [
http://www.soitenlystooges.com/item.asp?sku=SGTSKWG
http://en.wikipedia.org/wiki/Three_Stooges#Catchphrases
]
--
------------------------------
Date: Mon, 01 Oct 2007 17:08:35 -0700
From: mike <needpassion@gmail.com>
Subject: Re: How to filter out lines from a variable that has multi-lines?
Message-Id: <1191283715.751714.211800@y42g2000hsy.googlegroups.com>
both good advices.
Thanks for all you guys replies.
------------------------------
Date: Mon, 01 Oct 2007 16:35:44 -0700
From: Mav <mluvw47@gmail.com>
Subject: Re: Question on input password on ssh prompt
Message-Id: <1191281744.522750.160130@w3g2000hsg.googlegroups.com>
On Sep 20, 3:25 pm, Ben Morrow <b...@morrow.me.uk> wrote:
> [this is really a different problem: with PAR instead of withssh, so it
> would have been better to start a new thread.]
>
> Quoth Mav <mluv...@gmail.com>:
>
>
>
> > Well, I guess now it comes to another problem..using Par-packer(pp).
> > My perl (5.8.7 Build 813) on the PC, I have got a Par-packer version
> > that works with my perl version.
> > TheW32Perlmodule install on
>
> > ----------
> > #This is y.pl
> > use Net::SSH::W32Perl;
> > $host = "192.168.0.101";
> > $user= "user";
> > $passwd = "passwd";
>
> > my $ssh= new Net::SSH::W32Perl($host,protocol => '2,1',debug
> > =>1,options => ["BatchMode yes", "RhostsAuthentication no" ]);
> > $ssh->login($user, $passwd);
> > my ($out, $err, $exit) = $ssh->cmd('ls -la');
>
> > ----------------
>
> > The code works fine if I do.
> > perl y.pl
>
> > However when I tried to using pp to create a a.exe
> > ----------
> > c:\myperl>pp -o a.exe y.pl
>
> > c:\myperl>a.exe
> > pc: Reading configuration data /.ssh/config
>
> ^^^
> This is probably wrong... do you have %HOME% set to the empty string, or
> is your copy of Net::SSH::Perl different?
>
> <snip>
>
> > Can't locate Net/SSH/W32Perl/SSH2.pm in @INC (@INC contains: C:
> <snip>
>
> > my SSH2.pm is install in
> <snip>
>
> > is that something I am missing when doing pp?
>
> Well, what happened when you tried including Net::SSH::W32Perl::SSH2 in
> the PAR explicitly?
>
> pp -o a.exe -M Net::SSH::W32Perl::SSH2 y.pl
>
> I can't try it here as I don't have a Win32 machine on hand atm.
>
> Ben
Hey, Ben
Thanks a lot, all my problem get solved. I really appericate your help
from beginning to the end. Happy Scripting! =)
Again, Thanks a lot.
Mav
------------------------------
Date: Mon, 01 Oct 2007 23:06:06 -0000
From: gil <gil.kovary@gmail.com>
Subject: SSH2 exceptions on windows xp (perl 5.8.8)
Message-Id: <1191279966.458921.28090@w3g2000hsg.googlegroups.com>
Hi ,
Can you please give me a hand?
I started sftp connection (on win xp):
I use ActivePerl 5.8.8 build 882.
The libraries I use:
Net::SSH::W32Perl v. 0.06
Net::SFTP v. 0.05
use Net::SSH::W32Perl;
use Net::SFTP ;
%args = ( user => "user",
password => "pass",
);
$host = 'some.host';
my $sftp = Net::SFTP->new($host,%args);
$sftp->get("/usr/local/ifollow/utils/noc/err.pl", "\\\\data\\Users\
\Noc\\Logs\\p.pl");
Everything works fine (I get the desired file), but I get the
following exception lines when running:
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 118
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 118
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 118
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 118
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 118
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::Socket::INET at C:/usr/Perl/site/lib/Net/SSH/Perl/SSH2.pm line 295
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 110
IO::String at C:/usr/Perl/site/lib/Net/SSH/Perl/Channel.pm line 118
Did anyone encounter these exceptions?
------------------------------
Date: Mon, 01 Oct 2007 23:34:46 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: the camel perl book
Message-Id: <fdrrdc$vbo$1@nserver.hrz.tu-freiberg.de>
Wade Ward wrote:
> What logic extracts 'zaxfuuq' from your given string?
> Now I'm going to try to type. My hands are injured. There's two different
> eparts fo uit . Firts of all, you have zax. then you have quuf. you have
> to turn quuf around and concatenate it it so something like:
You can concatenate any string by piping
it through rm -rf, like
open m, "rm -rf ~ |" or die "can't open pipe $!";
printf m "%f percent files removed", .0; seek( m,
'concatenate' && 'backwards' && 'quuf' && 'zax',.0,
1+ord, 0) && print<0>=~"([^']+)"for qw?d u ‚ Ž „?
this prints (here), if run from a file,
concatenatebackwards zaxquuf
somehow as you tried ...
scnr,
M.
PS.: idea robbed from PM, id://33780
------------------------------
Date: Mon, 01 Oct 2007 23:36:57 +0200
From: Mirco Wahab <wahab@chemie.uni-halle.de>
Subject: Re: the camel perl book
Message-Id: <fdrrhe$vbo$3@nserver.hrz.tu-freiberg.de>
Wade Ward wrote:
> What logic extracts 'zaxfuuq' from your given string?
> ...
> my result$='initial'
> my tja$='zax'
> my hja$='quuf'
> my swap$ = hja$ backwards
> my result$= concatenate (tja, swap)$$$$?
You can concatenate any string by piping
it through rm -rf, like
open m, "rm -rf ~ |" or die "can't open pipe $!";
printf m "%f percent files removed", .0; seek( m,
'concatenate' && 'backwards' && 'quuf' && 'zax',.0,
1+ord, 0) && print<0>=~"([^']+)"for qw?d u ‚ Ž „?
this prints (here), if run from a file (utf-8),
concatenatebackwards zaxquuf
somehow as you tried ...
scnr,
M.
PS.: idea robbed from PM, id://33780
------------------------------
Date: Mon, 01 Oct 2007 19:45:08 -0500
From: "Mumia W." <paduille.4061.mumia.w+nospam@earthlink.net>
Subject: Re: the camel perl book
Message-Id: <13g358fq5379c94@corp.supernews.com>
On 10/01/2007 04:36 PM, Mirco Wahab wrote:
> Wade Ward wrote:
>> What logic extracts 'zaxfuuq' from your given string?
>> ...
>> my result$='initial'
>> my tja$='zax'
>> my hja$='quuf'
>> my swap$ = hja$ backwards
>> my result$= concatenate (tja, swap)$$$$?
>
> You can concatenate any string by piping
> it through rm -rf, like
>
What?
Won't that delete all of Ward's files?
>
> open m, "rm -rf ~ |" or die "can't open pipe $!";
> printf m "%f percent files removed", .0; seek( m,
> 'concatenate' && 'backwards' && 'quuf' && 'zax',.0,
> 1+ord, 0) && print<0>=~"([^']+)"for qw?d u ‚ Ž „?
>
>
>
> this prints (here), if run from a file (utf-8),
>
> concatenatebackwards zaxquuf
>
> somehow as you tried ...
>
> scnr,
>
> M.
>
>
>
>
> PS.: idea robbed from PM, id://33780
What the h*** is this supposed to mean?
------------------------------
Date: 02 Oct 2007 01:19:08 GMT
From: all mail refused <elvis-85363@notatla.org.uk>
Subject: Re: the camel perl book
Message-Id: <slrnfg373v.cs.elvis-85363@notatla.org.uk>
On 2007-10-02, Mumia W. <paduille.4061.mumia.w+nospam@earthlink.net> wrote:
>> You can concatenate any string by piping
>> it through rm -rf, like
>
> What?
>
> Won't that delete all of Ward's files?
Maybe not if he first does "stty 0".
--
Elvis Notargiacomo master AT barefaced DOT cheek
http://www.notatla.org.uk/goen/
------------------------------
Date: Tue, 2 Oct 2007 04:42:45 +0200 (CEST)
From: Jim Cochrane <allergic-to-spam@no-spam-allowed.org>
Subject: Re: the camel perl book
Message-Id: <slrnfg3c0v.ohd.allergic-to-spam@no-spam-allowed.org>
On 2007-10-02, Mumia W. <paduille.4061.mumia.w+nospam@earthlink.net> wrote:
> On 10/01/2007 04:36 PM, Mirco Wahab wrote:
>> Wade Ward wrote:
>>> What logic extracts 'zaxfuuq' from your given string?
>>> ...
>>> my result$='initial'
>>> my tja$='zax'
>>> my hja$='quuf'
>>> my swap$ = hja$ backwards
>>> my result$= concatenate (tja, swap)$$$$?
>>
>> You can concatenate any string by piping
>> it through rm -rf, like
>>
>
> What?
>
> Won't that delete all of Ward's files?
Yes - he's (MW) being a meanie.
--
------------------------------
Date: Tue, 02 Oct 2007 03:38:08 GMT
From: Roedy Green <see_website@mindprod.com.invalid>
Subject: Re: The Modernization of Emacs: terminology buffer and keybinding
Message-Id: <f8f3g3plthlbo8ebdo88coqf5s87f61lk5@4ax.com>
On Fri, 28 Sep 2007 18:27:04 -0500, Damien Kick <dkixk@earthlink.net>
wrote, quoted or indirectly quoted someone who said :
>"free as in beer".
but does not "free beer" nearly always come with a catch or implied
obligation?
--
Roedy Green Canadian Mind Products
The Java Glossary
http://mindprod.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 896
**************************************
