#!perl -an056
reset"V-Z";@Z=map{$V+=$v=y/aeiouyAEIOUY//;$W+=$l=s/[^\W_]/$&/g;$_.=' 'x(3-length)if++$X<@F;y///c,"$v/$l"}@F;$_="@F";s/(.{57})....+/$1.../;$Z.="%-*s "for/[^ .]/g;@F&&printf"%s$Z%n%s
","$X:\t$_
$V/$W:\t",@Z
|
#!perl -an056
reset"V-Z";@Z=map{$V+=$v=y/aeiouyAEIOUY//;$W+=$l=s/[^\W_]/$&/g;$_.=' 'x(3-length)if++$X<@F;y///c,"$v/$l"}@F;$_="@F";s/(.{57})....+/$1.../;$Z.="%-*s "for/ [^ .]/g;@F&&printf"%s$Z%n%s
","$X:\t$_
$V/$W:\t",@Z
|
My first perlgolfy thingy ever! Whee!
#!perl -an056
reset"V-Z";for(@F){$V+=$v=tr/aeiouyAEIOUY//;$W+=$l=s/[^\W_]/$&/g;push@Z,$t="$v/$l",' '.' 'x($:=y///c-length$t);$_.=' 'x-$:if++$X<@F}$_="@F";s/(.{57})....+/$1.../;$_&&print"$X:\t$_
$V/$W:\t",@Z[0..2*s/ [^ .]//g],"
"
|
I'll never be as cool as André Savigne. but I wanted to try anyway... :)
#!perl
$^='$#/$=;"%>&"(;;:{(`)`<`%`()(*
$#%{=;<;>;)$)%;{@@&@=;#{@{<`)`${
(&:(@): *<#$$%{)%;;$&(
[=;$(& [=;$ ) :[=;$**[=;"#"
$;;@@*[=;( % ) &;;&`/`"{$(!
`()@@&@)* ; {$# &[;$=;$%&{=
;$&!`=;> { ){/(! `%`)`/`%{)
{!@%@)@ / @%[)[/) /*;;$#:[;
$=; $%<`=;$&
!`=;> { #{/(;[>[<[: [/[=[/)
$*&# / $:`;;$%!`>&=; :(@):*
({(## ;=$<`%`>`:`${ (`$%!
`) &)`&`;(;)$ *([ <;@@&@;;@{%{#{(`@#@@*[<$<`%`>`:`
${(`$%!`<&"($)&{/*$#<`"$={$%%{=; "&@@&@"(;;$)%{=;>{#{/*(#>$;{%;:;
={)%>&>(>)>*;#/$$%!;>&>(>)/*;;$# *[>$ =;"%%
&=( *) # {@*"
i s #&`/`" { ($$%%{=;>{/& @(;[
>[@)>* = [/#:`) $;;@@& @&%&
f o r &@{"{) ` >`${& `"(%)#{$**[
%#>` %$#{<[>`"%<
A U T O S P L I T &"($)( [ *;<[$ {$*%{<[>`$#
&[/$$% : [*;<[$ {"&<(@ @*[=
{';'$# / $=;"%>&"(;;:{ ()<%
()( *$ # %{=;
<;>;)$)%;{@@&@=;#{@{<)${(&:(@):* <#$$ %{)%
;;$&([=;$(&[=;$):[=;$**[=;"#"$;; @@*[=;(%)&;;&/"{$(!()@@&@)*;{$#&
[;$= ;$%&{ =;$&!=;>{){/(!%)/%{){!@%@)@/@%[)
[/)/ *;;$
#:[; $=;$%< = ;$&!=;> {#{/ i s
(;[> [<[:[/[ = [/)$*&#/ $:;;
$%!>&=;:(@): * ({(##;=$<%>:$ f o r
{($%!)&)&;(; ) $*([<;@@&@;;@
{%{#{(@#@@*[ < $<%>:${($%!<& E V A L
"($) &{/*$#< " $={$%%{= ;"&@
@&@" (;;$)% { =;>{#{/ *(#>
$;{% ;:;=
[['; $~=' $:="";$^=~'.("]"^'$').'*:*\'*;$^
=~'.('['^'(').'|([@!-*/:->]).*?' .'([#-*;@[`{])|;;$:.=$'.++$%.'&(
"!"&"\\""^"/")\|$'.++$%.'&(("_"^ "/"))|'.('[ >)>*;#/$$%!
;>&>(>)/ *;;$#*[>
i s $=;"%% &=(*)#{ @*"#&/
"{($$ % %{=;>{/& @(;[>
f o r [@)> *= [/#:)$;; @@&@
&%&& @{" {)>${&"( %)#{
I N - P L A C E $**[ %#> %$#{<[> "%<&
"($)( [*; <[${$* %{<[>
$#&[/$ $% :[*; <[${"&
<(@@*[={ $#/$=;"%
>&"(;;:{()<%()(*$#%{=;<;>;)$)%;{ @@&@=;#{@{< )${(&',"").
('@[%@%]@,'^'\'(@{@+!@').'$:';;' (@):*<#$$%{)%;;$&([=;$(&[=;$):[=
;$* *[=;"# "$;; @@*[=;(%)&;;&/"{$(!()@@&@)*;{$#&
[; $= ; $%&{=;$&!= ;>{){/
(!%)/ % {){!@%@)@/ @%[)[/ i s
)/*;; $ #:[;$=;$%< =;$&!= ... sort of ...
;>{#{ / (;[>[<[:[/ [=[/)$ f o r
*&#/$ : ;;$%!>&=;: (@):*(
{(##; = $<%>:${($% !)&)&; I N P U T R E C O R D
(;)$* ( [<;@@&@;; @{%{#{
(@#@@* [<$<%> :${($%! S E P A R A T O R
<&"($)& {/*$#<"$
={$%%{=;"& @@&@"(;;$)%
*%($';''=~('(?{'.('%]@,'^'@+!@')
.'$~})');'*$#%^*^%&#$^&%$*^%$^&*
i s
f o r
C O R E D U M P
a n d
S O M E T I M E S
(>)>*;#/$$%!;>&>(>)/*;;$#*[>$=;"
%%&=(*)#{@*"#&/"{($$%%{=;>{/&@(;
[> [@)>*=[/ #:)
$ ;;@ @ &@&%&&@{"{ )>${&
"(%)# { $**[%#>%$# {<[>" i s
%<&"( $ )([*;<[${$ *%{<[
>$#&[ / $$%:[*;<[$ {"&<( f o r
@@*[= { $#/$=;"%>& "(;;:
{()<% () (*$#%{= ;<;>;
)$)%; { @@&@ =;#{@
{<)${( &:( @ ):*<# " WHY am I
$$%{)%;; $& ([=;$
(&[=;$):[=; $**[ =;"#" getting
$;;@@*[=;(%)&;;&/"{$(!( )@@&@
)*;{$#&[;$=;$%&{=;$&!=; >{){/ W H U P P E D
(!%)
/%{) in this
{!@%@) @/@%[
)[/) /*;;$#:[;$= competition!? "
;$%
<=; :)
$& /
=;>{#'
|