How to add and delete an occurrence of characters in a file? 2

[jspwoohoo]

Hello,

I'm new to perl and would like to get your help.
I have a file including a list of links with 80 at the end of each link:

http://www.google.com

80
kce.fgov.be 80

I want to:
1. add http:// at the beginning of each line
2. delete 80 at the end of each line.

The result obtained should be:

http://www.google.com

http://kce.fgov.be

All suggestions are very much appreciated.

Thanks and regards,

 

[feherke]

Hi

perl -i -pe 's,(\S+).*,[URL unfurl="true"]http://$1,'[/URL] /path/to/file

Btw, what have you tried ?

Feherke.

http://rootshell.be/~feherke/

 

[jspwoohoo]

Hi Fekerke,

Thank you for your answer.
Your script only adds the string http:// between link and the number 80. What I want is to add http:// at the beginning of the link and to delete 80 at the end.

To be honest, I didn't know how to do it at all. I've gained a very basic level in Perl. I wanted to open the file, loop through the file line per line, add http:// at the beginning of each line and delete 80 at the end of each line. That was my intention but didn't know how to do it in Perl.

 

[feherke]

Hi

It works for me :

[blue]master #[/blue] echo '[URL unfurl="true"]www.google.com[/URL] 80
[blue]>[/blue] kce.fgov.be 80' | perl -pe 's,(\S+).*,[URL unfurl="true"]http://$1,'[/URL]
[URL unfurl="true"]http://www.google.com[/URL]
[URL unfurl="true"]http://kce.fgov.be[/URL]

It it does not work for you, probably your file format is different. Btw, you did not specified your operating system. I tested it on Linux.

Feherke.

http://rootshell.be/~feherke/

 

[jspwoohoo]

Hi,
I'm working on Linux too.
This is how I tested:
[j2ee-user@localhost ~] perl -pe 's,(\S+).*,

http://$1,'

sites.txt
This I what I got:
www.google.com

http://80

kce.fgov.be

http://80

Alice

 

[KevinADC]

perl -i -pe 's#(\S+)(\s*80)#[URL unfurl="true"]http://$1#g'[/URL] /path/to/file

------------------------------------------
- Kevin, perl coder unexceptional!

 

[jspwoohoo]

It works.
Thanks a lot KevinADC.

Alice

 

[feherke]

Hi

Kevin, could you explain all this, please ? ( No, not the regular expression. ) I can not understand from where the difference comes. Thank you.

Feherke.

http://rootshell.be/~feherke/

 

[KevinADC]

Feherke,

It is hard to say why mine works and your does not without seeing the actual data he is searching through. I just made mine a bit more explicit was all. Your regexp works fine for me when I test it with:

http://www.google.com

80
kce.fgov.be 80

Regards,
Kevin


------------------------------------------
- Kevin, perl coder unexceptional!

 

[feherke]

Hi

Then it deserves is even more appreciation. Thanks.

Feherke.

http://rootshell.be/~feherke/

 

[jspwoohoo]

Hi Kevin,
My data is a text file (sites.txt) containing a list of sites as I said in my previous post. I got a complicated script from a colleague to extract the data. After running his script, the result obtained is the file sites.txt and on each line of the file the http:// is missing and the 80 is not moved away. That's why I want to use another script to manipulate the removal.

I don't know why it doesn't work with the script of Feherke but does work with yours.

Alice

 

[sycoogtit]

The only major difference I can see is the global option.

--

http://MyUniversityTutor.com