The UNIX and Linux Forums  

Go Back   The UNIX and Linux Forums > Top Forums > UNIX for Dummies Questions & Answers
Google UNIX.COM



View Single Post in UNIX Forums - Click on the Thread or Permalink to View Entire Thread -->
  #2 (permalink)  
Old 03-12-2001
PxT's Avatar
PxT PxT is offline
Registered User
 

Join Date: Oct 2000
Location: Sacramento, CA
Posts: 909
#!/usr/local/bin/perl

while (<>) {
print substr($_,0,8) . "\n";
print substr($_,8,6) . "\n";
print substr($_,14,6) . "\n";
print substr($_,20,6) . "\n";
print substr($_,26,5) . "\n";
print substr($_,31,6) . "\n";
print substr($_,37,6) . "\n";
}