#! /usr/bin/perl -w

use strict;

while (<>) {
  print "Preloop: $_";
  while (<>) {
    print "Inner: $_";
    last;
  }
  print "Postloop: $_";
}

exit;

ephphatha fucked around with this message at 02:51 on Jun 26, 2013

use strict;
use warnings;

my $values = multi_array();

print "First is " . $values->[0] . " with values " . join(' ', @{$values->[0]}) . "\n";
print "Second is " . $values->[1] . " with values " . join(' ', @{$values->[1]}) . "\n";
print "First, second is " . $values->[0] . " " . $values->[1] . " with values " . join(' ', @{$values->[0]}) . " " . join(' ', @{$values->[1]}) . "\n";


1;


sub multi_array
{
	my @a = (1,2);
	my @b = (3,4);
	my @c = (5,6);
	
	return [\@a,\@b,\@c];
}

__END__

uG fucked around with this message at 18:53 on Sep 15, 2013

while (<MYFILE>) 

my $line_num = 0;

while (<MYFILE>) {
        $line_num++;
        chomp;

        $data = "$_";
 
        # Now we got a big ol string.
 
        # Set this string to uppercase.
 
        $data = uc($data);
 
        # Check to see if non-ATCG characters are in the file.
 
        if ($data =~ /[^AGTC]/) {
                print "There are non-ATCG characters in the file on line number $line_num";
                last;
        }
 
        # Find the first occurrence of ATG.
}

my $line_num = 0;

while (<MYFILE>) {
    $line_num++;
    chomp;

    if ( uc($_) =~ /[^AGTC]/ ) {
        print "There are non-ATCG characters in the file on line number $line_num";
        last;
    }
}

my $line_num = 0;

while (<MYFILE>) {
    $line_num++;
    chomp;

    if ( $_ =~ /[^AGTC]/i ) {
        print "There are non-ATCG characters in the file on line number $line_num";
        last;
    }
}

Rohaq fucked around with this message at 01:07 on Nov 13, 2013

ephphatha fucked around with this message at 03:08 on Nov 13, 2013

ephphatha fucked around with this message at 01:02 on Nov 14, 2013

if ( $foo =~ "bar" )

#!/usr/bin/perl

my $string = "bl/ah";

# Traditional '/'s: Without the backslash below to escape the forward slash,
# we'll get a runtime error.
print "1\n" if ( $string =~ /bl\/ah/ );

# These work just fine, however.
print "2\n" if ( $string =~ "bl/ah" );

# Note that by using 'm' (match) before the regex, you can use virtually any
# character/brace as a surrounding characters. Without the 'm', you'd hit a
# runtime error in the two matches below:
print "3\n" if ( $string =~ m;bl/ah; );
print "4\n" if ( $string =~ m{bl/ah} );

# There is also a similar thing for single and double quotes, like the below:
# qq is the double quote (") equivalent:
print qq/test\n/;
# q is the single quote (') equivalent.
print q/test\n/;

# Note that \n isn't processed as a new line in single quotes. This is because
# double quotes in perl will process any special characters and variable names
# in the text (so you can include variables inline), and single quotes do not
# for example:
print "\nThe value of \$string in:\n";	# Note the backslash escaped \$
print "Double quotes: $string\n";
print 'Single quotes: $string';

Rohaq fucked around with this message at 21:50 on Nov 13, 2013

use lib "/path/to/module.pm";
use xlate;

$infilename = "";
$infilename = $ARGV[0] if (scalar(@ARGV) > 0);

while (1) {
	last if ($infilename && -e $infilename);
	print "Sequence file name: ";
	$infilename = <STDIN>;
	chomp $infilename; 
}

open (MYFILE, "< $infilename");

$line_num = 0;

while (<MYFILE>) {
	$line_num++;
}

# How many lines have a stretch of at least 6 Gs in a row AND a stretch of at least six Cs in a row?

$counter1 = 0;

$regexg = /G{6,}/i;
$regexc = /C{6,}/i;

foreach $line (<MYFILE>) {
	if (($line =~ $regexg) && ($line =~ $regexc)) {
		$counter1++;
	}
}

Pollyanna fucked around with this message at 23:19 on Nov 13, 2013