Interactive behavior

Now we can have a look at the user input loop:

do { 
    while (/([a-z])\s*([-\d.]*)/cgi) { ${$1} = $2 if $1 }
    $e = $_;
    $_ = qq#'<$W%;<$H%(<$j%[<$w%|<$h%!<$x%=<$y}_<$A%^<$a%*<$z%:<$n\n]@//^:")%#;
    @c = split //, $00;
    for ( 1 .. $i ) { } # this explained later
    sub f { };          # this too
    exit if $e =~ /q/;
    s/}/%X<$X%Y<$Y%/;
    y"=_!'<%:/;[^]@|*)\"({"yAxW= nmHwaCohz:dju";
    print;
  } while (<>) # repeat on user input

Previous | Next


Copyright © 2000-2001, Philippe "BooK" Bruhat.