Skip to content
  • This project
    • Loading...
  • Sign in

Barry / rf-depot

Go to a project
Toggle navigation
Toggle navigation pinning
  • Projects
  • Groups
  • Snippets
  • Help
  • Project
  • Activity
  • Repository
  • Graphs
  • Network
  • Create a new issue
  • Commits
  • Issue Boards
  • Files
  • Commits
  • Network
  • Compare
  • Branches
  • Tags
Switch branch/tag
  • rf-depot
  • ..
  • scripts
  • printvec
  • root's avatar
    added the rest · 5fa3b884
    5fa3b884
    root committed 2020-05-02 06:11:47 +0000
printvec 268 Bytes
Raw Blame History Permalink
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
#!/bin/perl

$FileName = $ARGV[0];

printf("Opening $FileName \n");

open(INPUT, "< $FileName");

while (<INPUT>)
{
  if (/-- v/ ? ($c = 2) : (--$c > 0)) {s/.*--// ; 
  if ($c == 2)
    {
      chop
    } 
  else
    {
      s/(\d+)(\s+)(\d+)/$1$2/
    }
  print}
}