diff options
| author | Luis Mochan <mochan@fis.unam.mx> | 2021-12-15 12:08:43 -0600 |
|---|---|---|
| committer | Luis Mochan <mochan@fis.unam.mx> | 2021-12-15 12:08:43 -0600 |
| commit | df286d0a88b12c8999eb7f1b54d8f15967c913a4 (patch) | |
| tree | 60d67b218cb186a127fbf7a26d582c6f317782ae | |
| parent | 1d6f0a2d0806e60cc1351a18c7552fd82ef447c3 (diff) | |
| download | perlweeklychallenge-club-df286d0a88b12c8999eb7f1b54d8f15967c913a4.tar.gz perlweeklychallenge-club-df286d0a88b12c8999eb7f1b54d8f15967c913a4.tar.bz2 perlweeklychallenge-club-df286d0a88b12c8999eb7f1b54d8f15967c913a4.zip | |
Untabify
| -rwxr-xr-x | challenge-143/wlmb/perl/ch-1.pl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/challenge-143/wlmb/perl/ch-1.pl b/challenge-143/wlmb/perl/ch-1.pl index e1190540bd..4f0ebd8ec4 100755 --- a/challenge-143/wlmb/perl/ch-1.pl +++ b/challenge-143/wlmb/perl/ch-1.pl @@ -13,14 +13,14 @@ my $current; my $token; foreach (@ARGV){ try { - $original_string=$previous=$current=$_; - token(); - my $result=expression(); - die "Extra characters: $previous\n" if defined $token->[0]; - say "$original_string=$result"; + $original_string=$previous=$current=$_; + token(); + my $result=expression(); + die "Extra characters: $previous\n" if defined $token->[0]; + say "$original_string=$result"; } catch { - warn $_; + warn $_; }; } |