Re: Inserting chr(27) at the beggining of a text file

Steve Hemond wrote: > > Hi ppl, Hello, > I need to insert the ESC character followed by a couple of other > characters at the beginning of a text file without overwriting it. What > is the best way to do it? AFAIK most, if not all, modern file systems will not allow you to add data to the begin

ftp files :: Solution?

May be of interest - http://backpan.cpan.org/authors/id/S/SR/SRSHAH/webupload-1.60.pl -Bill- __Sx__ http://youve-reached-the.endoftheinternet.org/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: Ternary operator question

John W. Krahn wrote: You do realise that ++$#array modifies @array? $ perl -le' @array = 90 .. 99; print scalar @array; ++$#array; print scalar @array; ++$#array; print scalar @array; ' 10 11 12 D'Oh! Yep, it does... Once upon a time $#array + 1 was the size of the array; obviously (scalar @ar

Re: subroutine definitions

Andrew Gaffney wrote: zsdc wrote: Confusion? You should read 6th Apocalypse by Larry Wall and the appropriate Exegesis by Damian Conway: http://dev.perl.org/perl6/apocalypse/A06.html http://dev.perl.org/perl6/exegesis/E06.html Now, _that_ is confusing. :) I think that's an understatement. Blood

Re: Ternary operator question

Wc -Sx- Jones wrote: > > R. Joseph Newton wrote: > > > print "Greater count was $greater_count\n"; > > print "Lesser count was $lesser_count\n"; > > But that was my point - you could just use ++$#array; because you are > only testing sizeOf array - a true test would be to see if they are > ident

Re: ENV variables and custom 404 error page

Bryan Harris wrote: print "Location: http://rightplace.com/\n\n";; Wow, this is cool! Where is this documented? I'm interested in learning about other things like this... http://www.google.com/search?hl=en&ie=UTF-8&oe=UTF-8&q=Perl+CGI+Apache&btnG=Google+Search 1,720,000 possibilities Try

Re: ENV variables and custom 404 error page

> # do this. make sure that this line is the > # ONLY thing you print out to the browser. > print "Location: http://rightplace.com/\n\n";; Wow, this is cool! Where is this documented? I'm interested in learning about other things like this... -- To unsubscribe, e-mail: [EMAIL P

Re: Dynamic loading of values (Tk::JComboBox)

John wrote: > Yeah but does this drop down list accept values from an array (resultset) That is a very good question. Please let us know what questions you have about the output of perldoc Tk::JComboBox. Hint--if it isn't documented, it may well not be available in Perl. You may have to choose

Re: Ternary operator question

--As of Monday, March 1, 2004 8:54 PM -0500, WC -Sx- Jones is alleged to have said: But that was my point - you could just use ++$#array; because you are only testing sizeOf array - a true test would be to see if they are identical in what each array holds. --As for the rest, it is mine. Only if

Re: Ternary operator question

R. Joseph Newton wrote: print "Greater count was $greater_count\n"; print "Lesser count was $lesser_count\n"; But that was my point - you could just use ++$#array; because you are only testing sizeOf array - a true test would be to see if they are identical in what each array holds. -Bill- __

Re: Checking filenames?

his is weird =) "03" in numerical context is 3. File name was 20040301 - collapses to 200431 - Not a match IMHO. foreach($file ! $chk) { $ftp->delete($file); } ??? Not sure but I am going to test it out Maybe I am totally confused - I have been work

Re: Checking filenames?

Jenda Krynicky wrote: You forgot to escape the last dot and to make the ar. optional :-) if ($file =~ /^\d{4}.*-www\.t(?:ar\.)?gz$/i) { Oops! Thx :) Now it matches either .tag.gz or .tgz as you intended. I don't think Jas needs that though. I agree - it was just another way to look at the p

Re: Ternary operator question

WC -Sx- Jones wrote: > R. Joseph Newton wrote: > > > Although it is not necessary the meaning might be better expressed: > > my $n = (@$a > @$b ? @$a : @$b) > > Sorry for jumping in - No problem. That's why this is a group. > You cannot compare two arrays that way and expect them to be numerica

Re: listing prime numbers in a range (Beginning Perl exercise)

> That's not really accurate. What was said to that: > > @list = "@list"; > > Creates a joined string of elements and replaces the > list with that one > item. It's perfectly reasonable to stringify an > array, without > altering the array's contents: > > print "@list\n"; > I'm not sure I

Re: Checking filenames?

From: WC -Sx- Jones <[EMAIL PROTECTED]> > Jas wrote: > > Wouldn't this be better? > > > > my $year = ""; > > my $month = ""; > > my $day = ""; > > > > if($file =~ /^(\d{4})(\d{2})(\d{2})-www.tar.gz$/) { > > $year = $1; > > $month = $2; > > $day = $3; > > No, because strings in numerical co

Re: Checking filenames?

From: WC -Sx- Jones <[EMAIL PROTECTED]> > Jas wrote: > > > if($file =~ /^(\d{8})-www\.tar\.gz$/) { > > > I believe you might like this better - > > ... > > if ($file =~ /^\d{4}.*-www\.t(?:ar.)gz$/i) { You forgot to escape the last dot and to make the ar. optional :-) if ($file =~ /^\d{4

Re: subroutine definitions

From: WC -Sx- Jones <[EMAIL PROTECTED]> > Andrew Gaffney wrote: > > >> http://dev.perl.org/perl6/apocalypse/A06.html > >> http://dev.perl.org/perl6/exegesis/E06.html > >> > >> Now, _that_ is confusing. :) > > > > > > I think that's an understatement. Blood is coming out of my ears > > after read

Re: trouble with writing to file

Wc -Sx- Jones wrote: [snip] > > my $file = "20040301-www.tgz"; > [snip] > > But I have a question - > > Does even mentioning (?:) usage break capturing? > > I get undefined errors when trying: > > $file =~ /^(\d+)-www.t(?:ar.)gz/i; > print $1

Re: Checking filenames?

Jas wrote: Wouldn't this be better? my $year = ""; my $month = ""; my $day = ""; if($file =~ /^(\d{4})(\d{2})(\d{2})-www.tar.gz$/) { $year = $1; $month = $2; $day = $3; No, because strings in numerical context which start with 0 (zero) in the format: 03 or 09 are returned as 3 or 9 part o

Re: trouble with writing to file

pkg_filename"; } I would have thought that to get a $1 out of that you would have needed while ($input =~ m/(...)/) ie, brackets around what you wanted to capture. Yes. #! /usr/bin/perl -w use strict; use warnings; my $file = "20040301-www.tgz"; $file =~ /^(\d+)/i; prin

Re: Checking filenames?

Wouldn't this be better? my $year = ""; my $month = ""; my $day = ""; if($file =~ /^(\d{4})(\d{2})(\d{2})-www.tar.gz$/) { $year = $1; $month = $2; $day = $3; my $chk = "$month - 1"; foreach($file ! $chk) { $ftp->delete($file); } ??? Not sure but I am going to test it out Wc -Sx- Jone

Re: trouble with writing to file

Thank you Bob and Owen. [Bob] > I notice you don't put an explicit path on the filename. Is it possible the > current directory is something other that what you expect it to be, and the > file is being successfully created in another location? I thought about that and so I tried an absolute path

Re: Checking filenames?

Jas wrote: if($file =~ /^(\d{8})-www\.tar\.gz$/) { I believe you might like this better - ... if ($file =~ /^\d{4}.*-www\.t(?:ar.)gz$/i) { ... -Bill- __Sx__ http://youve-reached-the.endoftheinternet.org/ -- To unsubscribe, e-mail: [EMAIL PROTECTED] F

Re: trouble with writing to file

On Mon, 1 Mar 2004 18:08:08 +0100 incognito <[EMAIL PROTECTED]> wrote: > open(FH, "> $pkg_filename") or die "could not create $pkg_filename"; > while ($input =~ m/.../) { > print $1; > FH->print("$1\n") or die "could not write to $pkg_filename"; > } I would have thought that to ge

Checking filenames?

I am not sure how to get this the last part of this to work properly. I am trying to check for any file with this format [20040301-www.tar.gz] and remove any past 30 days. Pointers appreciated as this is only my second script ever written in perl (besides the 'hello world'). =)

Re: ENV variables and custom 404 error page

>I have a custom 404 error page that uses that shows the URL of the page that >couldn't be found using var="REDIRECT_URL". Is there a way to take this >variable, such as "/folder/wrong.html", strip out everything except >"folder", match "folder" and redirect (launch the web page) to >"folder/index.

ENV variables and custom 404 error page

I have a custom 404 error page that uses that shows the URL of the page that couldn't be found using var="REDIRECT_URL". Is there a way to take this variable, such as "/folder/wrong.html", strip out everything except "folder", match "folder" and redirect (launch the web page) to "folder/index.ht

RE: Assigning elements to array (U)

UNCLASSIFIED Thanks, and thinking back, I should have posted my code. (slapping hand) The qw is what I had defining the array. I took out the qw, and it works fine. my @names=('Start test', 'Stop test'); # correct syntax Thanks to everyone that responded. -Original Message- From: Bob

Re: Inserting chr(27) at the beggining of a text file

Steve Hemond wrote: > Hi ppl, > > I need to insert the ESC character followed by a couple of other > characters at the beginning of a text file without overwriting it. What > is the best way to do it? most os would not allow you to add a few bytes at the beginning of the file without overwritin

Re: Reg. Net::Pcap

Balaji Thoguluva wrote: Hi Bill, I appreciate your ideas. I am the root of the system. As you say, it is not possible to catch packets simultaneously on more than one interface or all interfaces. But there are tools like tcpdump. tcpdump with -i option of 'any' can catch packets on all

Re: subroutine definitions

Andrew Gaffney wrote: http://dev.perl.org/perl6/apocalypse/A06.html http://dev.perl.org/perl6/exegesis/E06.html Now, _that_ is confusing. :) I think that's an understatement. Blood is coming out of my ears after reading a few pages of the first one... Hmmm; in fact all Perl people should be ha

Re: Reg. Net::Pcap

Hi Bill, I appreciate your ideas. I am the root of the system. As you say, it is not possible to catch packets simultaneously on more than one interface or all interfaces. But there are tools like tcpdump. tcpdump with -i option of 'any' can catch packets on all interfaces. Even the

RE: trouble with writing to file

incognito wrote: > Thank you for your attention, Bob. > > > What is your actual regex? At a minimum, you'll need /g modifier. > > You may need /m and/or /s as well. > > May be I didn't explained my prob exactly. > I don't have a problem with the regex (and yes, I have the /m /g and > /s). Related

Re: trouble with writing to file

Thank you for your attention, Bob. > What is your actual regex? At a minimum, you'll need /g modifier. You may > need /m and/or /s as well. May be I didn't explained my prob exactly. I don't have a problem with the regex (and yes, I have the /m /g and /s). Related to the regex, my script works fi

Inserting chr(27) at the beggining of a text file

Hi ppl, I need to insert the ESC character followed by a couple of other characters at the beginning of a text file without overwriting it. What is the best way to do it? Thanks, Regards, Steve Hemond -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECT

RE: trouble with writing to file

Reinhard Mantey wrote: > undef $/; > my $input = <>; > my $pkg_filename = "longnames.txt"; > > open(FH, "> $pkg_filename") or die "could not create $pkg_filename"; > while ($input =~ m/.../) { What is your actual regex? At a minimum, you'll need /g modifier. You may need /m and/or /s as well.

trouble with writing to file

Hello, I came to perl by J.Friedl's regex-book without any perl-experiences. I wrote a little script to scan packages and their dependencies from a book (lfs). The script works fine and I get the packages with their dependencies. Now I tried to expand that script that way, that I wanted to write

RE: WIN2K Active Directory qtn. execute system command with login script.

Make sure you import the in function from the Win32::OLE module, then you can do something like this: ### use strict; use warnings; use Win32::OLE qw(in); my $obj = Win32::OLE->GetObject("LDAP://server/OU=MyOU,DC=company,DC=com ") || die; $obj->{Filter} = ["User"]; f

Re: subroutine definitions

zsdc wrote: Confusion? You should read 6th Apocalypse by Larry Wall and the appropriate Exegesis by Damian Conway: http://dev.perl.org/perl6/apocalypse/A06.html http://dev.perl.org/perl6/exegesis/E06.html Now, _that_ is confusing. :) I think that's an understatement. Blood is coming out of my ear

trouble with writing to file

Hello, I came to perl by J.Friedl's regex-book without any perl-experiences. I wrote a little script to scan packages and their dependencies from a book (lfs). The script works fine and I get the packages with their dependencies. Now I tried to expand that script that way, that I wanted to write

Re: print a 3D array

--As of Monday, March 1, 2004 6:27 PM +0200, John is alleged to have said: Could you tell me what the above means? --As for the rest, it is mine. Possibly. What's the code that generated that? Daniel T. Staal --- This email copyright

Re: Dynamic loading of values (Tk::JComboBox)

John wrote: > From: "zsdc" <[EMAIL PROTECTED]> > >>John wrote: >> >>>I want to retrieve the vaules from a table (mysql) >>> >>>Can i do that easily? >> >>use DBI; >> >>http://search.cpan.org/search?module=DBI > Yeah but does this drop down list accept values from an array (resultset) What drop dow

Weekly list FAQ posting

NAME beginners-faq - FAQ for the beginners mailing list 1 - Administriva 1.1 - I'm not subscribed - how do I subscribe? Send mail to <[EMAIL PROTECTED]> You can also specify your subscription email address by sending email to (assuming [EMAIL PROTECTED] is your email address):

Re: Digest::MD4

R. Joseph Newton wrote: zsdc wrote: John W. Krahn wrote: Perl and Unix are not acronyms or abbreviations although LDAP is. Actually, Perl is an acronym of Practical Extraction and Report Language. Close, not quite. Larry has a rather perverse sense of humor, and as a concession to the indiscrimin

Re: non-OO module problem -> other packages variables

On Mar 1, 2004, at 7:22 AM, Gary Stainburn wrote: Hi folks, I'm trying to move my debug and validate modules to a seperate package. However, I'm having trouble. I've created a new empty module/package direct from the perldocs and then put my debug routine in. So far, so good. I then created m

Re: Dynamic loading of values (Tk::JComboBox)

Yeah but does this drop down list accept values from an array (resultset) - Original Message - From: "zsdc" <[EMAIL PROTECTED]> To: "John" <[EMAIL PROTECTED]> Cc: "Perl Beginners" <[EMAIL PROTECTED]> Sent: Monday, March 01, 2004 6:40 PM Subject: Re: Dynamic loading of values (Tk::JCombo

Re: Trainset - initial release

On Mar 1, 2004, at 3:59 AM, Gary Stainburn wrote: Okay, I can do that simply enough, but could you elaborate on the reason please. Sure. Subroutines may be called recursively. If a subroutine is called using the "&" form, the argument list is optional, and if omitted, no @_

Re: Dynamic loading of values (Tk::JComboBox)

John wrote: I want to retrieve the vaules from a table (mysql) Can i do that easily? use DBI; http://search.cpan.org/search?module=DBI -- ZSDC -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]

Re: print a 3D array

Problem with my array 0Tk::Error: Can't use string ("ARRAY(0x22bdfb0)") as an ARRAY ref while "strict refs" in use at C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\dir635.tmp\gui.pl line 307, < DATA> line 164. main::add_documents at C:\DOCUME~1\ADMINI~1\LOCALS~1\Temp\dir635.tmp\gui.pl lin e 307 main::__A

Re: subroutine definitions

zsdc wrote: I see [your] point. Perl 5 prototypes were invented mostly to make things like $x = pop @array work but there is nothing you can do with prototypes which you cannot do without them, only with different function call syntax. In fact, prototypes are not even needed to restrict argument

Re: print a 3D array

John wrote: I want to print a 3D array (all values dynamically) Something like (but 2d) - for $i ( 0 .. $#AoA ) { $row = $AoA[$i]; for $j ( 0 .. $#{$row} ) { print "element $i $j is $row->[$j]\n"; } } What have you tried? Why not research: http://perlmonks.thepen.com/90647.htm

Re: print a 3D array

--As of Monday, March 1, 2004 5:33 PM +0200, John is alleged to have said: I want to print a 3D array (all values dynamically) --As for the rest, it is mine. Two questions: 1. What have you tried? 2. How is the data stored? (I think I know what you mean by '3D array', but since there is no su

Re: MySQL (was: Dynamic loading of values (Tk::JComboBox))

--As of Monday, March 1, 2004 2:23 PM +0200, John is alleged to have said: I want to retrieve the vaules from a table (mysql) Can i do that easily? --As for the rest, it is mine. Sure. Take a look at the DBI moduleset. Daniel T. Staal --

Re: Assigning elements to array (U)

Bob Showalter wrote: Meidling, Keith, CTR, ISD wrote: UNCLASSIFIED It is classified; You should only get that warning if you used qw(), which Gary didn't. @arr = qw('foo bar', 'baz qux'); # incorrect; gives warning @arr = ('foo bar', 'baz qux'); # correct; assigns two elements If yo

RE: Tool Like TOAD

A TOAD that can decrypt advanced perl would be a prices less foggy.. .. Thanks, Kevin Holcomb W2K System Administrator/Database Administrator Bank of America E-Commerce: Interactive Information Management kevin.holcomb@ bankofamerica.com (w) 704-388-7361 (c) 704-309-6178 (pager) 877-385-0652

print a 3D array

I want to print a 3D array (all values dynamically)

Re: Ternary operator question

R. Joseph Newton wrote: Although it is not necessary the meaning might be better expressed: my $n = (@$a > @$b ? @$a : @$b) Sorry for jumping in - You cannot compare two arrays that way and expect them to be numerically different - if they are it may be a coincidence; consider for discussion:

Re: Digest::MD4

From: "R. Joseph Newton" <[EMAIL PROTECTED]> > Close, not quite. Larry has a rather perverse sense of humor, and as > a concession to the indiscriminate acronymophilia of the day, he > allowed as to how the acronym you listed could be applied, just as > could be P[adjective I have forgotten] Ecle

Re: Digest::MD4

zsdc wrote: > John W. Krahn wrote: > > > Clifford Bruce wrote: > > > >>I am a beginner at PERL, PERL modules, and UNIX. I installed RADIATOR on > >>my Ultra 2 with Solaris 8. Before I can configure RADIATOR I need to > >>install several modules (e.g. MD4, ldap, openSSL). The first module I > >>hav

Re: Digest::MD4

On Mar 1, 2004, at 12:20 AM, zsdc wrote: Actually, Perl is an acronym of Practical Extraction and Report Language. You sure about that? :) Quoting from the FAQ: But never write "PERL", because perl is not an acronym, apocryphal folklore and post-facto expansions

RE: Assigning elements to array (U)

Meidling, Keith, CTR, ISD wrote: > UNCLASSIFIED > > I tried that, and I get the following error... > > Possible attempt to separate words with commas at C:\test.plx line > 6. > 'Start > test', > 'Stop > test' You should only get that warning if you used qw(), which Gary didn't. @arr = qw('f

Re: Assigning elements to array (U)

Meidling, Keith, CTR, ISD wrote: UNCLASSIFIED I tried that, and I get the following error... Possible attempt to separate words with commas at C:\test.plx line 6. 'Start test', 'Stop test' I'm running Active State Perl 5.6 on Windows 2000 Pro. You are saying this code: #! C:\perl\bin\perl.ex

Re: Reg. Net::Pcap

Balaji Thoguluva wrote: Hi, I would like to know if Net::Pcap::open_live($dev, $snaplen, $promisc, $to_ms, \$err)) method can take 'any' as value for $dev argument. My intention > is to catch packets that come on all network interfaces of a computer >(atleast I want from eth0 and lo, loopba

Re: Frequency of words

Vishal Vasan wrote: > Hello all, > > Sorry to reply so late. Here is the code that worked for me. > use strict; use warnings; > > my %frequency_words = (); > > while(<>){ >chomp; >$frequency_words{$_}++; > }

Re: Ternary operator question

Andrew Gaffney wrote: > Perl wrote: > > I am trying to understand how this works. For example: > > > > my $n = @$a > @$b ? @$a : @$b; > > > > > > I understand this is a conditional statement I am just not sure what is > > being compared with ? and :. > > I believe that the above just assigns a tru

RE: Assigning elements to array (U)

UNCLASSIFIED I tried that, and I get the following error... Possible attempt to separate words with commas at C:\test.plx line 6. 'Start test', 'Stop test' I'm running Active State Perl 5.6 on Windows 2000 Pro. -Original Message- From: Gary Stainburn [mailto:[EMAIL PROTECTED] Sent: Mo

Assigning elements to array (U)

UNCLASSIFIED How can I assign elements to an array that have spaces in them? Say I have two elements that I want to put into an array, one is 'Start test' the other is 'stop test'. The only way I know how to do this is by the following. my @array; $array[0]="Start test"; $array[1]="Stop test";

Re: Assigning elements to array (U)

On Monday 01 March 2004 1:54 pm, Meidling, Keith, CTR, ISD wrote: > UNCLASSIFIED > > How can I assign elements to an array that have spaces in them? > > Say I have two elements that I want to put into an array, one is 'Start > test' the other is 'stop test'. The only way I know how to do this is by

Re: Help with Radio_group

Thank you very much. Very helpful! wolf blaum wrote: > > On Sunday 29 February 2004 17:20, [EMAIL PROTECTED] generously enriched > virtual reality by making up this one: > > Hi > > > I have a script that processes a form input. What I want to do is this: > > I assume you are talking about a ht

Reg. Net::Pcap

Hi, I would like to know if Net::Pcap::open_live($dev, $snaplen, $promisc, $to_ms, \$err)) method can take 'any' as value for $dev argument. My intention is to catch packets that come on all network interfaces of a computer (atleast I want from eth0 and lo, loopback interface). I have also

Re: non-OO module problem -> other packages variables

On Monday 01 March 2004 1:22 pm, Gary Stainburn wrote: > Hi folks, > > I'm trying to move my debug and validate modules to a seperate package. > However, I'm having trouble. I've created a new empty module/package > direct from the perldocs and then put my debug routine in. So far, so > good. > >

non-OO module problem -> other packages variables

Hi folks, I'm trying to move my debug and validate modules to a seperate package. However, I'm having trouble. I've created a new empty module/package direct from the perldocs and then put my debug routine in. So far, so good. I then created my program to use it, but I'm having trouble acce

Dynamic loading of values (Tk::JComboBox)

I want to retrieve the vaules from a table (mysql) Can i do that easily?

RE: data filtering

> Mr.David, >I have few questions: > 1. What is the function of Scope Resolution Operator :: used > in the code you sent me? (filter::$col[$i]) > 2. What are the arguments for the sub routine "filterspec"? > you have put sub filterspec($@). > 3. What is the output expected out o

Re: Any way for Perl to write RTF within email as the body of an email without attachments

From: "Wagner, David --- Senior Programmer Analyst --- WGO" <[EMAIL PROTECTED]> > I have an email I am doing, but there is so much data and I am > running into problems on wrapping of lines on the screen. I use > sendmail and Sender, but would be open to anything that would allow > me to imitat

WIN2K Active Directory qtn. execute system command with login script.

Hi, I have a command line tool (tscmd), which works fine on single user. My goal is to change TS profile for Organization Unit user. I want to put a login script inside a GPO of this OU in order to do it. What I miss is how to create the array of users included in this Organization Unit, so I can r

Re: Trainset - initial release

On Saturday 28 February 2004 9:58 am, John W. Krahn wrote: > Gary Stainburn wrote: > > Hi folks, > > Hello, > > > as many of you who follow this list will know, a while back I decided to > > learn OOP and set myself the task of simulating a railway system. > > > > A number of people asked if I coul

Re: subroutine definitions

R. Joseph Newton wrote: I would see this in a more positive light, perhaps, if prototypes were more required for all functions, particularly if they offered named formal parameters. In those circumstances, prototypes would offer great benefits of clarity, since one could always refer to the signa

Re: Trainset - initial release

On Friday 27 February 2004 7:27 pm, James Edward Gray II wrote: > On Feb 27, 2004, at 8:32 AM, Gary Stainburn wrote: > > Hi folks, > > Howdy. > > > as many of you who follow this list will know, a while back I decided > > to learn > > OOP and set myself the task of simulating a railway system. > >

Re: subroutine definitions

R. Joseph Newton wrote: Got it. I'll still stick with what I said, though. This "feature" offered by Perl prototypes strikes me as primarily a seed of confusion. Confusion? You should read 6th Apocalypse by Larry Wall and the appropriate Exegesis by Damian Conway: http://dev.perl.org/perl6/apoc