[SOLVED]substitution using hash issue

jaffinito34 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: substitution using hash issue by brx (Pilgrim) on Nov 12, 2012 at 15:50 UTC
`use strict;` This is a good friend. Declare your variables: `my %dates = ...` `01` is an octal number (one). `08` is an illegal number representation. What you want is text, so write text with quotes: `my %dates = ( 'Jan' => '01', #...` `$dates{'Dec'}` contains `"12"`. So, forget regex substitution: `print "$day $dates{$month} $year\n";` There is a lot of caveats with dates. Consider well known CPAN modules like DateTime... `#!/usr/bin/perl use strict; my %dates = ( 'Jan' => '01', 'Feb' => '02', 'Mar' => '03', 'Apr' => '04', 'May' => '05', 'Jun' => '06', 'Jul' => '07', 'Aug' => '08', 'Sep' => '09', 'Oct' => '10', 'Nov' => '11', 'Dec' => '12', ); my $date = "30/Feb/2013"; my ($day,$month,$year) = split '/', $date; print "$day $dates{$month} $year\n";` [download] English is not my mother tongue. Les tongues de ma mère sont "made in France".	[reply] [d/l] [select]
Re: substitution using hash issue by choroba (Cardinal) on Nov 12, 2012 at 15:17 UTC
No substitution is required, a hash is all you need: `#!/usr/bin/perl use warnings; use strict; print "Enter date: "; chomp(my $date = <STDIN>); my ($day, $month, $year) = split '/', $date; print "$day $month $year\n"; my $m; my %dates = map { $_, sprintf '%02d', ++$m } qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/; my $month_n = $dates{$month}; print "$day $month_n $year\n";` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^2: substitution using hash issue by jaffinito34 (Acolyte) on Nov 12, 2012 at 15:21 UTC
The program seemed to run but got some errors after entering the date, not sure what they mean though. Enter date: 23 Oct 2222 Use of uninitialized value $month in concatenation (.) or string at ./ +dateWork line 9, <STDIN> line 1. Use of uninitialized value $year in concatenation (.) or string at ./d +ateWork line 9, <STDIN> line 1. 23 Oct 2222 Use of uninitialized value $month in hash element at ./dateWork line 1 +5, <STDIN> line 1. Use of uninitialized value $month_n in concatenation (.) or string at +./dateWork line 16, <STDIN> line 1. Use of uninitialized value $year in concatenation (.) or string at ./d +ateWork line 16, <STDIN> line 1. 23 Oct 2222 [download]	[reply] [d/l]
Re^3: substitution using hash issue by choroba (Cardinal) on Nov 12, 2012 at 15:25 UTC
You should enter the date in the specified format. لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply]
Re^4: substitution using hash issue by jaffinito34 (Acolyte) on Nov 12, 2012 at 15:26 UTC
Re: substitution using hash issue by brap (Pilgrim) on Nov 12, 2012 at 15:16 UTC
Hi jaffinito34, Looks like the month numbers are being interpreted as octal. Drop the leading zeroes, especially for 'Aug' and 'Sep'. `'Jan' => 1, ...` That will at least get your program running.	[reply] [d/l]
Re^2: substitution using hash issue by jaffinito34 (Acolyte) on Nov 12, 2012 at 15:22 UTC
Got compilation errors. `syntax error at ./dateWork line 13, near "+=>" Execution of ./dateWork aborted due to compilation errors.` [download]	[reply] [d/l]
Re^3: substitution using hash issue by jaffinito34 (Acolyte) on Nov 12, 2012 at 15:25 UTC
Sorry it works, but when I try to print the updated $month, it just prints a blank line.	[reply]
Re: substitution using hash issue by Anonymous Monk on Nov 12, 2012 at 15:10 UTC
What errors ? ( How do I post a question effectively? , How (Not) To Ask A Question ) Your shebang looks broken see also Basic debugging checklist and brian's Guide to Solving Any Perl Problem	[reply]
Re^2: substitution using hash issue by jaffinito34 (Acolyte) on Nov 12, 2012 at 15:16 UTC
When the script is run in the terminal, I get this. `syntax error at ./dateWork line 13, near "+=>" Illegal octal digit '8' at ./dateWork line 14, at end of line Illegal octal digit '9' at ./dateWork line 14, at end of line Execution of ./dateWork aborted due to compilation errors.` [download]	[reply] [d/l]