Re^3: Convert a string into a hash

Conditional my isn't allowed. Besides, your code doesn't compile. You want

my %code = do { my $i = 0; map { $_ => $i++ } split /,/, $tokens };
[download]

If you really want no explicitely declared temp variables, you can use the following:

my %code = sub { map { $_[$_] => $_ } 0..$#_ }->( split /,/, $tokens )
+;
[download]

But honestly, there's no need to limit the scope that badly. Either of the following are quite suitable:

my $i = 0;
my %code = map { $_ => $i++ } split /,/, $tokens;
[download]

my @code = split /,/, $tokens;
my %code = map { $code[$_] => $_ } 0..$#code;
[download]

Comment on Re^3: Convert a string into a hash Select or Download Code

Replies are listed 'Best First'.
Re^4: Convert a string into a hash by vitoco (Hermit) on Aug 15, 2009 at 03:34 UTC
Conditional `my` isn't allowed. Besides, your code doesn't compile. Yes, it does... without `use strict;` !!! Thanks for point that out.	[reply] [d/l] [select]
Re^5: Convert a string into a hash by ikegami (Patriarch) on Aug 15, 2009 at 15:48 UTC
Fine, it compiles without strict but it has two additional errors. It's not using strict :) Package var `$i` is used when you intended lexical `$i` to be used. Why bother declaring lexical `$i` if you're not going to use it and you're ok with using the (unlocalised!!!) package var? Your code is equivalent to `my %code = map { $_ => $i++ } split /,/, $tokens; my $i = 0` [download] so you should use the following is you think it's fine `my %code = map { $_ => $i++ } split /,/, $tokens;` [download]	[reply] [d/l] [select]
Re^6: Convert a string into a hash by vitoco (Hermit) on Aug 15, 2009 at 16:56 UTC
Well, I used to write perl 4 code for years, scratching my back with my own nails, because my scripts usually were simple enougth, just regexpr to filter/format some text files. Few years ago, I started to use modules and OO, just reading some examples from the docs (and sometimes, pm's source code). Today, I'm just having fun writing some programs for personal use, and learning some advanced tricks to write code where there is no module available. From my previous posts, you can guess that my favourite module is WWW::Mechanize, and I currently have scripts to download/archive picture galleries from Yahoo Groups and Facebook, videos from Youtube, and such, where I found no modules for that nor free GUIs from someone else. Now I'm trying to split most of my scripts to write standard modules (and possibly publish in CPAN), but I realize that I have much to learn yet.	[reply]