Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- use strict;
- use Data::Dumper;
- my $test = "hello world";
- my %frags = ();
- if($test =~ m/(\w+)\s(\w+)/g) {
- %frags = (
- 'a' => $1,
- 'b' => $2);
- }
- print Dumper(\%frags);
- my @sexy_array;
- foreach my $key (keys %frags) {
- push(@sexy_array, $frags{$key});
- }
- print Dumper(\@sexy_array);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement