Re: Parsing Large Text Files
Re: Parsing Large Text Files
- Subject: Re: Parsing Large Text Files
- From: "Mark J. Reed" <email@hidden>
- Date: Thu, 1 May 2008 22:34:47 -0400
Whups, small correction needed to deal with the last protein in the
file properly:
#!/usr/bin/perl
$/ = "\r\n>";
while (<>)
{
s/^>?(.*?)\r\n(.*)(\r\n>)?$/$2/oms;
my $name = $1;
s/\r\n//ogms;
$_ = reverse($_);
s/.{50}/$&\r\n/ogms;
print ">$name reversed:\r\n$_\r\n";
}
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden