a prime bug

chomp and print join ',',  grep $_, (map length, split /[a,]/), "\n"
 while <DATA>;
__END__
a bug trapped inside
a paper lantern, arid 
aflutter, ablaze
[download]

Comment on a prime bug Download Code

Replies are listed 'Best First'.
Re: a prime bug by shmem (Chancellor) on Jun 11, 2017 at 11:41 UTC
Nice. But `__END__` should be `__DATA__` and `__END__` be -- well, at the end. perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'	[reply] [d/l] [select]
Re^2: a prime bug by ownlifeful (Sexton) on Jun 11, 2017 at 11:52 UTC
I suppose, if you want to be formal about it. iirc, `__END__` and `__DATA__` are equivalent, and that's why the script runs. Please correct me if you know otherwise.	[reply] [d/l] [select]
Re^3: a prime bug by shmem (Chancellor) on Jun 11, 2017 at 12:07 UTC
Running a script - `perl script.pl` - the tokens make no difference. But if you invoke perl on the command line to read STDIN and paste the script, `__END__` makes `DATA` into `STDIN`, and you have to type Ctrl-d to close STDIN/DATA. Not a big deal, but that's the difference ;-) perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'	[reply] [d/l] [select]
Re^2: a prime bug by Jambo Hamon (Novice) on Jul 07, 2017 at 01:28 UTC
All comments so far are awesome. I felt like the bug when i read it ... ;]	[reply]


Your skill will accomplish what the force of many cannot
	PerlMonks