www.GunnarD.se

Om man ofta flyttar textfiler mellan unix burkar och windows burkar så kan det vara bra att först konvertera radsluten, unix använder ju \n för radslut medans windows använder \r\n.

Kommandona använder perl och skall ges i ett unix shell.

Konvertera unix till windows:

perl -i -pe 's/\n/\r\n/' filnamn

och för att konvertera windows till unix:

perl -i -pe 's/\r\n/\n/' filnamn

Har ett tag haft ett problem med att kunna plocka ut (extract) email adresser ur en textmassa m.h.a perl, har googlat ett tag efter reguljära uttryck för detta, hittat flera men antingen varit för krångliga eller inte lyckats få med sig hela mailadressen.

Men nu äntligen har jag hittat ett uttryck som klarar allt jag matat den med och den är så enkel så att jag borde kommit på den själv

\w\.\-]+@[\w\.\-]+\w+

Gjorde en liten perl subroutin för detta:

sub GetEmailAdress {
my ($Adress)=@_;
my $Res="";

$Res=$1 if $Adress=~/([\w\.\-]+@[\w\.\-]+\w+)/;

$Res;
}