Help for this page

Select Code to Download


  1. or download this
    while($text =~ m/((ATOM)(\s{1,})(\d{1,})(\s{1,})(\w+)(\s{1,})[A-Z]{1,}
+(\s{1,})[A-Z]{1,}(\s{1,})(\d{1,})(\s{1,})(\W+\d+.\d+)(\s{1,})(\W+\d+.
+\d+)(\s{1,})(\W+\d+.\d+)(\s{1,})(\W+\d+.\d+)(\s{1,})(\d+.\d+)(\s+)([A
+-Z]{1}))/gi)
{
...
    print MYFILE "\n";

}
  2. or download this
    while($text =~ m/((ATOM)(\s{1,})(\d{1,})(\s{1,})(\w+)(\s{1,})[A-Z]{1,}
+(\s{1,})[A-Z]{1,}(\s{1,})(\d{1,})(\s{1,})(\W+\d+.\d+)(\s{1,})(\W+\d+.
+\d+)(\s{1,})(\W+\d+.\d+)(\s{1,})(\W+\d+.\d+)(\s{1,})(\d+.\d+)(\s+)([A
+-Z]{1}))/gi)
{
...
    print MYFILE "\n";

}