need a perl function

[indiandomain]

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

[tombola]

$textfile = /path/to/textfile.txt

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

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

[wruppert]

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.