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

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;


Comment on Re^4: Syslog files revisited
Select or Download Code
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?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (10)
As of 2014-12-22 15:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    Is guessing a good strategy for surviving in the IT business?





    Results (119 votes), past polls