diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-07-04 21:58:13 +0100 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-07-04 21:58:13 +0100 |
| commit | 87a6047a60f9e12271645370808b9624df18a58c (patch) | |
| tree | 6e42a8ab86a9a30105747f8f560e0c2b31c1b3e8 | |
| parent | e9f9c49b72008b480b3715a447681a1a0d354432 (diff) | |
| download | perlweeklychallenge-club-87a6047a60f9e12271645370808b9624df18a58c.tar.gz perlweeklychallenge-club-87a6047a60f9e12271645370808b9624df18a58c.tar.bz2 perlweeklychallenge-club-87a6047a60f9e12271645370808b9624df18a58c.zip | |
tidied
| -rw-r--r-- | challenge-119/james-smith/README.md | 2 | ||||
| -rw-r--r-- | challenge-119/james-smith/cesil/cesil.pl | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-119/james-smith/README.md b/challenge-119/james-smith/README.md index 11f1a24015..663a88f2d2 100644 --- a/challenge-119/james-smith/README.md +++ b/challenge-119/james-smith/README.md @@ -176,7 +176,7 @@ my %commands = ( ## Parser loop while(<>) { ((@in=map{/^\s+-?\d+\s*$/?0+$_:()}<>),last)if/^ {8}%/; - ($ptrs{$1},$_)=(0+@code,$2) if m/^(\S{1,7})\s+(.*)/; + ($ptrs{$1},$_)=(0+@code,$2) if /^(\S{1,7})\s+(.*)/; my($cmd,$data) = split/\s+/,s/^\s+//r=~s/\s+$//r, 2; die "\n## Unknown command [$cmd @ ",1+@code,"]\n" unless exists $commands{$cmd}; diff --git a/challenge-119/james-smith/cesil/cesil.pl b/challenge-119/james-smith/cesil/cesil.pl index 64b0355de7..756f10227b 100644 --- a/challenge-119/james-smith/cesil/cesil.pl +++ b/challenge-119/james-smith/cesil/cesil.pl @@ -36,7 +36,7 @@ my %commands = ( ## Parser loop while(<>) { ((@in=map{/^\s+-?\d+\s*$/?0+$_:()}<>),last)if/^ {8}%/; - ($ptrs{$1},$_)=(0+@code,$2) if m/^(\S{1,7})\s+(.*)/; + ($ptrs{$1},$_)=(0+@code,$2) if /^(\S{1,7})\s+(.*)/; my($cmd,$data) = split/\s+/,s/^\s+//r=~s/\s+$//r, 2; die "\n## Unknown command [$cmd @ ",1+@code,"]\n" unless exists $commands{$cmd}; |