Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re^4: Syslog files revisited

by stevbutt (Novice)
on Aug 03, 2012 at 16:09 UTC ( #985273=note: print w/replies, xml ) Need Help??

in reply to Re^3: Syslog files revisited
in thread Syslog files revisited

Thats great and thank you very much for your help. I have one further issue though. My existing code now looks like this

#!/usr/bin/perl use 5.010; use strict; use warnings; while (my $line = <STDIN>) { chomp($line); my ( $mon, $day, $time, $dom, $login, $remainder ) = split m{:?\s+}, $line, 6; my %monthNos = do { my $no = 0; map { $_ => ++ $no } qw{ Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec }; }; my $yr = q{2012}; my $csv = sprintf q{%02d/%02d/%s %s,%s,%s,"%s"}, $day, $monthNos{ $mon }, $yr, $time, $dom, $login, $remainder; say $csv; }

As I wanted the remainder to be in double quotes so it would read in as one field. The problem is that remainder sometimes already contains double quotes which I would like to remove or replace with single quotes

I tried the following but it leaves be with an empty set of double quotes

my $remainder =~ s/""\"\""/\'/g;

Replies are listed 'Best First'.
Re^5: Syslog files revisited
by stevbutt (Novice) on Aug 03, 2012 at 16:18 UTC

    Sorry to bother anyone with such trivial stuff, I played and found the the following worked

    $remainder =~ tr/"/'/d;

    Many Thanks

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://985273]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (9)
As of 2018-11-21 14:07 GMT
Find Nodes?
    Voting Booth?
    My code is most likely broken because:

    Results (239 votes). Check out past polls.