[bcn-pm] JASP genial

[José Luis Pérez Diez]

Como  las referencias de google son larguismas esta editada a mano funciona:


http://groups.google.com/group/comp.lang.perl.misc/tree/browse_frm/thread/cb885b6cbf823a6d/20e8cc3932366f88?rnum=21

Contrariamente a lo que aparece en las listas  no es necesario dar pemisos de 
ejecucion. basta con indicar de forma no ambigua el parametro al exec$0 de 
forma que sea estable entre llamadas.

Tiene la belleza de un RTFM donde R es Reread. No se si se la curro para el 
hiilo pero es genial.

Como ya he puesto el link paso del contexto y simplemente cito lo interesante
q%
Actually, you can't run another program "within perl" using 'exec', as
'exec' *replaces* the current program with another.

Abigail
-- 
#!/opt/perl/bin/perl   --    # No trailing newline after the last line!    
BEGIN{$|=$SIG{__WARN__}=sub{$_=$_[0];y-_- -;print/(.)"$/;seek _,-open(_
,"+<$0"),2;truncate _,tell _;close _;exec$0}}//rekcaH_lreP_rehtona_tsuJ
%


simple y elegante lastima que no funcione con -e