Sponsored Content
Full Discussion: awk/perl one-liner assist
Top Forums Shell Programming and Scripting awk/perl one-liner assist Post 302514405 by gameboy87 on Friday 15th of April 2011 03:33:47 PM
Old 04-15-2011
Error awk/perl one-liner assist

In a ~4GB file there are lines like,

Code:
13.13.4.3 Googe.com - Jan/23/2011:00:00:00 +0000 "URL Google HTTP/1.1" 45 56 208  - "http://www.gogle.com/webhp?hl=en&tab=nw#hl=en&source=hp&biw=1366&bih=667&q=hello&aq=f&aqi=&aql=&oq=&fp=c432485467934a89" ".Net; Fox" -
13.145.3.3 Goge.com - Jan/16/2011:00:00:00 +0000 "URL Google HTTP/1.1" 28 34 248  - "http://www.gogle.com/webhp?hl=en&tab=nw#hl=en&source=hp&biw=1366&bih=667&q=hello&aq=f&aqi=&aql=&oq=&fp=c432485467934a89" ".Net; Fox" -

I need to replace the spaces in a line with tab space char(\t). But with a condition.The text in "double quotes" must be treated as a string and inside that the replacement of space with tab space must be avoided. There are more than 50000+ different lines in the file.

This can be done with awk or perl command I think.

Can anyone help out ? Thnak you.

Last edited by Scott; 04-17-2011 at 03:35 PM..
 

10 More Discussions You Might Find Interesting

1. Shell Programming and Scripting

Perl One Liner

Hi , Can anybody explain how this perl one liner works.. It is to test whether the number is prime or not perl -le 'print "PRIME" if (1 x shift) !~ /^(11+)\1+$/' 19 Thanks in advance Shihab (2 Replies)
Discussion started by: shihabvk
2 Replies

2. Shell Programming and Scripting

Search & Replace regex Perl one liner to AWK one liner

Thanks for giving your time and effort to answer questions and helping newbies like me understand awk. I have a huge file, millions of lines, so perl takes quite a bit of time, I'd like to convert these perl one liners to awk. Basically I'd like all lines with ISA sandwiched between... (9 Replies)
Discussion started by: verge
9 Replies

3. Shell Programming and Scripting

Need an awk / sed / or perl one-liner to remove last 4 characters with non-unique pattern.

Hi, I'm writing a ksh script and trying to use an awk / sed / or perl one-liner to remove the last 4 characters of a line in a file if it begins with a period. Here is the contents of the file... the column in which I want to remove the last 4 characters is the last column. ($6 in awk). I've... (10 Replies)
Discussion started by: right_coaster
10 Replies

4. Shell Programming and Scripting

Replacing Awk with One-liner Perl

can someone help me translate the following command, from: /usr/bin/awk "/^$TOFDAYM $TOFDAYD /,0" $LOGFILE to something like perl -e ..... basically, i want to use perl to do awk functions within a shell script. i want to do the above awk, using perl. any suggestions? (9 Replies)
Discussion started by: SkySmart
9 Replies

5. Shell Programming and Scripting

replace awk with a perl one liner (REGEXP and FS)

hello, I want to replace awk with a perl one liner in unix. i use in awk REGEX and FS ( field separator) because awk syntaxes in different unix os versions have not the same behaviour. Awk, Nawk and GNU Awk Cheat Sheet - good coders code, great reuse i have a file named "file" and want... (5 Replies)
Discussion started by: bora99
5 Replies

6. UNIX for Dummies Questions & Answers

Perl one liner to replace text

Not quite a unix question but problem in a perl command. Taking a chance if someone knows about the error cat 1 a b c d perl -p -e 's/a/b/g' 1 b b c d What is the problem here?? perl -p -i -e 's/a/b/g' 1 Can't remove 1: Text file busy, skipping file. (2 Replies)
Discussion started by: analyst
2 Replies

7. Shell Programming and Scripting

HELP with AWK one-liner. Need to employ an If condition inside AWK to check for array variable ?

Hello experts, I'm stuck with this script for three days now. Here's what i need. I need to split a large delimited (,) file into 2 files based on the value present in the last field. Samp: Something.csv bca,adc,asdf,123,12C bca,adc,asdf,123,13C def,adc,asdf,123,12A I need this split... (6 Replies)
Discussion started by: shell_boy23
6 Replies

8. Shell Programming and Scripting

Delete line - Perl one liner

Hi all, I need a Perl one liner which prints a newline into a .txt file, only where the line starts with "/mediawiki-1.19.0/". It should add the newline to the line before. My problem is, when I try to realize this (with my little knowledge :rolleyes: ) i come to the point where the // are... (4 Replies)
Discussion started by: Mr.Smith
4 Replies

9. Shell Programming and Scripting

PERL one liner

hi, I am using PERL one liner for oracle database connection as : $PERL -e "use DBI; DBI->connect(qw(DBI:Oracle:SID user passwd));" is there a way to append select statement to this connection ? i.e. DB connection and select stmt in one line ? how to do sysdba connection using one lines... (1 Reply)
Discussion started by: talashil
1 Replies

10. Shell Programming and Scripting

Perl one liner to wrap comment lines

Greetings fellow scripters. I find myself editing multiple files, sometimes with the same bits of information. My bash script, a changelog, and a plist file (OS X). Once I realized this, I thought why not script part of this process (and so it begins). In any case, I've solved several of the... (1 Reply)
Discussion started by: reid
1 Replies
Net::Google::Code(3pm)					User Contributed Perl Documentation				    Net::Google::Code(3pm)

NAME
Net::Google::Code - a simple client library for google code SYNOPSIS
use Net::Google::Code; my $project = Net::Google::Code->new( project => 'net-google-code' ); $project->load; # load its metadata, e.g. summary, owners, members, etc. print join(', ', @{ $project->owners } ); # return a Net::Google::Code::Issue object, of which the id is 30 $project->issue( id => 30 ); # return a Net::Google::Code::Download object, of which the file name is # 'FooBar-0.01.tar.gz' $project->download( name => 'FooBar-0.01.tar.gz' ); # return a Net::Google::Code::Wiki object, of which the page name is 'Test' $project->wiki( name => 'Test' ); # loads all the downloads $project->load_downloads; my $downloads = $project->downloads; # loads all the wikis $project->load_wikis; my $wikis = $project->wikis; DESCRIPTION
Net::Google::Code is a simple client library for projects hosted in Google Code. Since 0.15, Net::Google::Code offers google's official issues api support. Besides the new "Net::Google::Code::Issue::list", "Net::Google::Code::Issue::Comment::list" and <Net::Googlel::Code::Issue::load_comments> methods, which use the api from start, you can set $Net::Google::Code::Issue::USE_HYBRID to true to load, create and update issue with the api too. But the official api is not function complete yet( e.g. no attachment support, can't merge, etc. ), Net::Google::Code will back to the scraping way to accomplish those stuff. ATTRIBUTES
project the project name email, password user's email and password, used to authenticate base_url the project homepage base_svn_url the project svn url (without trunk) base_feeds_url the project feeds url summary description labels owners members INTERFACE
load load project's home page, and parse its metadata parse acturally do the parse job, for load(); load_downloads load all the downloads, and store them as an arrayref in $self->downloads load_wikis load all the wikis, and store them as an arrayref in $self->wikis issue return a new Net::Google::Code::Issue object, arguments will be passed to Net::Google::Code::Issue's new method. download return a new Net::Google::Code::Download object, arguments will be passed to Net::Google::Code::Download's new method. wiki return a new Net::Google::Code::Wiki object, arguments will be passed to Net::Google::Code::Wiki's new method. DEPENDENCIES
Any::Moose, HTML::TreeBuilder, WWW::Mechanize, Params::Validate XML::FeedPP, DateTime, JSON, URI::Escape, MIME::Types, File::MMagic INCOMPATIBILITIES
None reported. BUGS AND LIMITATIONS
No bugs have been reported. This project is very very young, and api is not stable yet, so don't use this in production, at least for now. AUTHOR
sunnavy "<sunnavy@bestpractical.com>" Fayland Lam "<fayland@gmail.com>" LICENCE AND COPYRIGHT
Copyright 2008-2010 Best Practical Solutions. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. perl v5.10.1 2010-04-26 Net::Google::Code(3pm)
All times are GMT -4. The time now is 04:15 AM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy