Re: Extract part of string and remove the rest

Please see:

You should also give a more detailed description (eg. what lines do you want to capture and what do you want to remove?) and a sample code that fails to do what you want to do. That way monks can help you much more efficiently.

--
seek $her, $from, $everywhere if exists $true{love};

Comment on Re: Extract part of string and remove the rest Download Code

Replies are listed 'Best First'.
Re^2: Extract part of string and remove the rest by sandy1028 (Sexton) on Feb 19, 2009 at 12:55 UTC
`Location: http://www.google.com Status Code: 200 OK <br /> File : http://www.aby.cos Status code: 500 Server Error` [download] I have to extract only http://www.google.com and http://www.aby.cos and remove the other text for the lines	[reply] [d/l]
Re^3: Extract part of string and remove the rest by puudeli (Pilgrim) on Feb 19, 2009 at 14:02 UTC
You could use split or regular expressions. `perl -e '$s="Location: http://www.google.com Status Code: 200 OK"; @pc +s = split(/ /, $s); for ( @pcs ) { print $_ . "\n" if /http/; }'` [download] which produces `http://www.google.com` [download] or `#! /usr/bin/perl use strict; use warnings; my @hits; while( <DATA> ) { chomp; push @hits, $1 if $_ =~ /\w*(http:\S+)/; } print join("\n", @hits) . "\n"; 1; __DATA__ Location: http://www.google.com Status Code: 200 OK <br /> File : http://www.aby.cos Status code: 500 Server Error` [download] which produces `http://www.google.com http://www.aby.cos` [download] -- `seek $her, $from, $everywhere if exists $true{love};`	[reply] [d/l] [select]


laziness, impatience, and hubris
	PerlMonks