list from file

persianswallow has asked for the wisdom of the Perl Monks concerning the following question:

hi friends.in this following code i want to create list instead of my $list in the script from a text file that has a word in each line.please help me.

#!/usr/bin/perl
use strict;
use warnings;

my $list = <<LIST;
PF10417.3
PF11001.3
PF05.3
LIST

my @domains1 = ('PF05.3',     'PF11001.3', 'PF00389.24', 'PF10417.3');
my @domains2 = ('PF01',       'PF02',      'PF11001.3',  'PF00389');
my @domains3 = ('PF00389.24', 'PF05.3',    'PF01',       'PF00389');
my %neighbours;

for my $domain (\@domains1, \@domains2, \@domains3) {
    for my $idx (0 .. $#$domain) {
        my @near = grep {$_ >= 0 && $_ <= $#$domain} $idx - 1, $idx + 
+1;
        push @{$neighbours{$domain->[$idx]}}, map {$domain->[$_]} @nea
+r;
    }
}

open my $inList, '<', \$list or die "cannot open 'domainlist'becuase:$
+!";

while (defined (my $domain = <$inList>)) {
    chomp $domain;

    print "Domain $domain has neighbours: @{$neighbours{$domain}}\n";
}
[download]

Comment on list from file Download Code

Replies are listed 'Best First'.
Re: list from file by Not_a_Number (Prior) on Jul 29, 2011 at 21:37 UTC
Please clarify what you mean by "i want to create list instead of my $list" (And by the way, you should acknowledge the source of the code you post...) Update: Linkified 'source'.	[reply]
Re^2: list from file by persianswallow (Novice) on Jul 29, 2011 at 21:45 UTC
this code works just when i have a list in script i mean i am limited with this list in script .i have different lists and i want to use them instead of list in the script. i want to make list from a file and use that in program. and yes,i took it from monk but i didnt know how i should show the source.:-(	[reply]
Re^3: list from file by ww (Archbishop) on Jul 29, 2011 at 22:01 UTC
Based on your questions to date, 917552 Re^2: list from file 2011-07-29 16:45 917540 list from file 2011-07-29 15:24 917434 Re^6: array in hashes 2011-07-29 05:44 917421 Re^4: array in hashes 2011-07-29 04:36 917414 Re^2: array in hashes 2011-07-29 04:04 917406 array in hashes 2011-07-29 03:14 917302 Re: array of arrays 2011-07-28 12:16 917230 Re^4: finding neighbors of an element in arrays 2011-07 +-28 04:42 917222 Re^4: finding neighbors of an element in arrays 2011-07 +-28 04:27 917211 finding neighbors of an element in arrays 2011-07-28 03 +:19 [download] it appears that it's time for you to start actually studying Perl (aka, one hopes, "learning Perl") rather than simply asking each question as it occurs to you. It's our goal to help you learn; not to provide an unlimited, question-by-question answer-service. Also, pay strict attention to Not_a_Number's request for clarity... and the caution about crediting the source of code you post; this community takes a very serious view of plagarism and its various cousins.	[reply] [d/l]
Re^4: list from file by Not_a_Number (Prior) on Jul 29, 2011 at 22:18 UTC
Re^3: list from file by planetscape (Chancellor) on Jul 30, 2011 at 12:50 UTC
i didnt know how i should show the source.:-( Please see What shortcuts can I use for linking to other information? HTH, planetscape	[reply]
Re: list from file by GrandFather (Saint) on Jul 29, 2011 at 22:00 UTC
Replace \$list with a file name - it's as simple as that. See the documentation for open. The \$list syntax allows a string to be used as a file and is an excellent way of providing a "file" in a small stand alone sample script. Generally if you don't understand everything that is going on in a script you should read the documentation (in this case "perldoc -f open" would help), or ask someone. Simply copying code you don't understand is "cargo culting" and is an excellent way of getting into bad habits and wasting a lot of time. True laziness is hard work	[reply]
Re^2: list from file by persianswallow (Novice) on Jul 29, 2011 at 22:12 UTC
thank you so much for your help and show a good link.	[reply]
Re^2: list from file by persianswallow (Novice) on Jul 29, 2011 at 23:33 UTC
i have tried several ways to check my list. if i replace the file name instead of \$list the program will not use from my file.i tried to use this code instead to check my list element `open (DOMAINLIST,'<domainlist') or die "cannot open 'domainlist'becuas +e:$!"; chomp(my @domain=<DOMAINLIST>); for my $domain(@domain){ my @array=@{$neighbours{$domain}};` [download] but there is a problem with reference that i couldn't solve it yet.then i came back to list.with replacing file name with \$list , my $list and its elements will not be useful , because \$list is a reference for that (i think) then i delete that,but still it doesn't work without error but no output.it shows that script hasn't opened the domainlist.	[reply] [d/l]