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 23:03:53 -0400
Ok, so my small correction broke the output by leaving '>'s in.
Here's a no-really-this-time corrected version, with commentary added
so you can follow the logic.
#!/usr/bin/perl
# Read one whole protein at a time: instead of reading one line,
# keep reading until there's a CRLF followed by a '>'
$/ = "\r\n>";
# Repeat while there's input remaining
while (<>)
{
# chop off initial > if any (only happens on first line)
s/^>//o;
# chop off final > if any (all but last line)
s/>$//o;
# strip off the first line (name of protein) so it doesn't get
# included in the reversal
s/^(.*?)\r\n(.*)$/$2/os;
# but remember that name for later
my $name = $1;
# get rid of all CRLF's
s/\r\n//og;
# reverse what's left
$_ = reverse($_);
# put CRLF's back in every 50 characters
s/.{50}/$&\r\n/og;
# and output, with name
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