Help for this page

Select Code to Download


  1. or download this
    my ( $R_score, @protein, @R_score_protein );
    
  2. or download this
    my ( @protein, @R_score_protein );
    ...
    push( @R_score_protein, $1 );
    
  3. or download this
    use Getopt::Long;
    our URL = "http://www.bork.embl-heidelberg.de/g2d/"
    ...
    GetOptions( 'url=s', \$URL ) || die ( "Error reading command line args
    +" );
    my $browser = LWP::UserAgent->new();
    my $resp = $browser->get( $URL );
    
  4. or download this
    while ( $content_all =~ m{R\-score<\/A>\s=\s(\d\.\d+)\;}g ) {
        push( @R_score_protein, $1 );
    ...
    while ( $content_all =~ m{\[(NP_\d+)\]}g ) {
        push @protein, $1;
    }
    
  5. or download this
    my $protein_re = qr|\[(NP_\d+)\]|;
    my $score_re = qr|R-score</A>\s=\s(\d\.\d+)|;
    while ( $content_all =~ m{$protein_re} ) .....
    while ( $content_all =~ m{$score_re} ) ....
    
  6. or download this
    # $record stores references to hashes, 
    # which are accumulated in @records
    ...
            push( @{ $record->{'score'} }, $score );
        }
    }
    
  7. or download this
    for my $records ( @records ) {
        print "Proteins: ", join( ", ", @{ $record->{'protein'} } ), "\n" 
    ...
        print "Score: ", $record->{'score'}, "\n";
        print "-" x 72;
    }