Welcome to WebmasterWorld Guest from 54.158.143.40

Forum Moderators: coopster & jatar k & phranque

Message Too Old, No Replies

need a perl function

   
9:28 pm on Jul 3, 2005 (gmt 0)

10+ Year Member



hi guys

i have a perl script x.pl with this line,.
when i run this script it registers domains.

$DomainName = 'UNITEDARABEMIRATES.COM';

instead of adding domain in this code.. i want it to pickup from txt file

the txt file will have a list of domains like
dd.com
d3.com
df.com

so when i run the script it shud pick each domain from the txt file and run in a loop.

can someone provide a perl function for this?

thanks
sohail

5:50 am on Jul 4, 2005 (gmt 0)

10+ Year Member




$textfile = /path/to/textfile.txt

open (INFILE,"$textfile");
@domains = <INFILE>;
close (INFILE);

foreach $DomainName(@domains) {
[code to register this $DomainName]
}

6:36 am on Jul 4, 2005 (gmt 0)

10+ Year Member



The previous code leaves a newline at the end of the domain name.

This code strips leading and trailing whitespace (including newlines), skips blank lines, and skips lines whose first non-whitespace character is a pound sign. This allows your input text file to have comments, which I find to be very useful.

It picks up a the file name from the command line, or uses a default if there is none.

[pre]
#!/usr/bin/perl

use strict;
use warnings;

my $textfile = shift ¦¦ "your-default-filename";
open IN, "<", $textfile
or die "Unable to open $textfile $@";

while (<IN>) {
s/^\s+//;
s/\s+$//;
next if /^$/;
next if /^\#/;
my $DomainName = $_;
print "Processing: $DomainName\n";
# process domain name.
}

close IN;
[/pre]

The broken bars above (¦¦) should be the unbroken bars.