simple loop with print

This simple program opens v1.txt and prints the lines in v2.txt. You can change the entries t1t and t2t. For example you have a lot of keywords (alpha, beta ..). With this code you produce a list (for example) full of urls. http://www.keyword.com/ (if you wanted to add http://www. and .com/ to the keyword).

open (ERSTE, "v1.txt") || die "file not found\n";

@urls = <ERSTE>;
close (ERSTE);

open (KEYWORD, ">v2.txt");

for(@urls)
{
chop $_;


print KEYWORD "t1t $_ t2t\n";


$i++;
}

close (KEYWORD);




 

Back to previous page