Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: Perl code error

by bikeNomad (Priest)
on Aug 14, 2001 at 03:57 UTC ( #104635=note: print w/replies, xml ) Need Help??

in reply to Perl code error

The || is being parsed wrong; use another delimiter for your s///. Also you have a couple of typos past that. A corrected version could look like:

my @files = qw(quotePAGE1 quotePAGE2); for (@files) { open IN, $_ or die "failed opening file $_, at"; $\ = "\n\n"; my $num = 0; my($chunk,$q_num,%s_nums,%auth,@s,%subj); while($chunk = <IN>) { ++$num; $chunk =~ s|^/-a(\S+)[^/n]*\n|| or die "no author? file $_, chunk $num; at"; $a = $1; while($chunk =~ s{/-s(\S+)[^\n]*\n/-q((?:.|\n)+?(?=/-))}{}) { $q_num = 0; $auth{$a}->[$q_num] = $2; @s = split /,/,$1; for (@s) { (undef($s_nums{$_}) && $s_nums{$_} == 0) || ($s +_nums{$_} += 1) } $subj{$_}->[$s_nums{$_}] = $2 for @s; } } }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://104635]
[TCLion]: I am breaking down the line and putting the date in the correct order during output
[TCLion]: at least that's the plan
[1nickt]: Corion this looks good, from the pod: "there are 9000+ variations that are detected correctly in the test files (see t/data/* for most of them). If you can think of any that I do not cover, please let me know."
[TCLion]: some moron put the date like this : Mon Feb 20 09:31:30 2017
[Corion]: 1nickt: Yes, the module sounds promising indeed
[1nickt]: "putting the date in correct order" how?
[Corion]: TCLion: Whee ;)
[TCLion]: need to put like this : 2017-02-20 09:30:53
[1nickt]: That's why I asked if you are using DateTime. It has a large number of supporting modules (the author likes the term 'eco-system') so if you are already creating a DateTime obj from your dates, this module would read in the mnoron-formatted 1s seamlessly
[TCLion]: when I put the date together it looks like : 2017-Feb-24 (month is the problem)

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (14)
As of 2017-03-23 14:53 GMT
Find Nodes?
    Voting Booth?
    Should Pluto Get Its Planethood Back?

    Results (288 votes). Check out past polls.