if (-e $ARGV[0]) 
{ 
        #open file for iteration 
        open(f, $ARGV[0]) or die("Could not open file"); 
 
        #iterating... 
        $i = 0; 
        @hashes = (); 
        %graph = (); 
        $first = 1; 
        while(f) 
        { 
                #read lines from file 
                $line = readline(f); 
                #check for ##*-------- line 
                #if in the graph section set the hash values 
                #and set the hash in the array 
                if($line =~ m/^#\*+-/) 
                { 
 
                } 
                else 
                { 
                        #print "setting in hash\n"; 
                        $inhash = 1; 
                } 
 
                if($inhash) 
                { 
                        $graph{"$linenumber"} = $line; 
                        $linenumbers++; 
                } 
        } 
} 
else 
{ 
        die("cannot find file"); 
} 
close(f); 
print "@hashes\n";

#! /usr/bin/perl 
use strict; 
use warnings; 
use Data::Dumper; 
 
my $b_regex = q{^#\*\-+}; #break 
my $gn_regex = q{^GRAPH: <(.*?)>}; #graph name 
 
my $graphs = []; 
my $graph_name = q{}; 
my $chunk = []; 
 
while (my $line = <DATA>) { 
	chomp $line; 
 
	push @$chunk, $line; 
	 
	if ($line =~ m/$b_regex/) { 
		push @$graphs, [$graph_name, $chunk]; 
		($graph_name, $chunk) = (q{}, []); 
	}	 
	elsif ($line =~ m/$gn_regex/) { 
		$graph_name = $1; 
	} 
} 
 
#print Dumper($graphs); 
 
foreach my $graph (sort { $a->[0] cmp $b->[0] } @$graphs) { 
	{ 
		local $" = "\n"; 
		print "@{$graph->[1]}\n"; 
	} 
} 
 
__DATA__ 
#*---------------- 
 
GRAPH: <graphname2> 
 
stuff 
 
#*---------------- 
 
GRAPH: <graphname1> 
 
stuff 
 
#*---------------- 
 
GRAPH: <graphname3> 
 
stuff 
 
#*----------------

#!/usr/bin/perl 
use strict; 
use warnings; 
 
$/ = "#"; 
my @data; 
 
while (<DATA>) { 
	chomp; 
	next unless $_; 
	last if /^\*----------------\Z/; 
	push @data, $_; 
} 
 
print "#$_" for sort by_name @data; 
print "#*----------------\n"; 
 
sub by_name { 
	my ($A) = $a =~ /GRAPH: <(.+?)>/; 
	my ($B) = $b =~ /GRAPH: <(.+?)>/; 
	return $A cmp $B; 
} 
 
__DATA__ 
#*----------------  
GRAPH: <graphname2> 
stuff 
#*---------------- 
GRAPH: <graphname1> 
stuff 
#*---------------- 
GRAPH: <graphname3> 
stuff 
#*----------------

#!/usr/ bin / perl 
use strict; 
use warnings; 
$/ = "#*----------------"; 
print sort <DATA>; 
__DATA__  
#*---------------- 
GRAPH: <graphname2> 
stuff 
#*---------------- 
GRAPH: <graphname1> 
stuff 
#*---------------- 
GRAPH: <graphname3> 
stuff 
#*----------------

   
  
#!/usr/bin/perl -w   
#Written and tested by sn0rkl3m4st3r   
#Script for sorting graph text files      
  
#Ensure correct number of command line arguments   
#and if they're incorrect, print usage and die.   
if (@ARGV < 2 || @ARGV > 2)   
{   
 die("Usage: sortit.pl <infile> <outfile>\n");   
}    
  
#Check if the file exists   
if (-e $ARGV[0])   
{   
 #open file for iteration   
 open(F, "<$ARGV[0]") or die("Could not open file");    
 open (G, ">>$ARGV[1]") or die("could not open outfile");     
  
 #initialize variables/arrays   
 $i = 0;   
 $fseven = 1;    
 %graph = ();   
 @hsharr = ();   
 @names = ();   
 $first = 1;   
 $inhash = 0;   
 $gname = "";    
 #read lines from file   
 while($line = readline(F))   
 {   
  #make sure first 7 lines are printed to the new file   
  if($fseven <= 7)   
  {   
   if($fseven == 7)   
   {   
    $line =~ s/\n//;   
   }   
   print G "$line";   
   $fseven++;   
  }   
  
  #check for ##*-------- line   
  #if in the graph section set the hash values   
  #and set the hash in the array     
  if($line =~ m/^#\*+-/)   
  {    
  
   #make sure we don't have null first hash/array   
   if($first)   
   {    
  
    $first = 0;    
  
   }   
   else   
   {   
    #this line won't be part of the array     
    $inhash = 0;   
    $i = 0;   
    #because this isn't the first ##*---- set we've seen   
    #we know we have an array to push to another array...don't ask    
    push(@hsharr, @graph);    
    #reinitialize    
    @graph = ();    
   }   
  }   
  elsif(!$first)   
  {   
   $inhash = 1;   
  }   
  
  if($inhash)   
  {   
   if($line =~ m/^GRAPH:/)   
   {   
    #obtain the graph name    
    @splitar = split(/:/, $line);   
                                $gname = $splitar[1];   
    #remove leading space   
    $gname =~ s/^\s+//;   
    push (@names, $gname);   
    #get rid of leading spaces and enter into array   
    $line =~ s/^\s+//;    
    $graph[$i] = $line;   
    $i++;   
   }    
   else   
   {   
    $graph[$i] = $line;   
    $i++;   
    #print "current graph ($i): @graph\nDone\n\n";   
   }   
  
  }   
 }   
  
 #sort the list of names for comparison   
 @names = sort(@names);   
  foreach $name (@names)   
  {   
   $printed = 0;   
   $isequal = 0;   
   foreach $line (@hsharr)   
   {   
    @splitar = split(/:/, $line);   
    if($line =~ m/^GRAPH:/)   
    {   
     #print "trying to format...";   
     $gname = $splitar[1];   
     $gname =~ s/^\s+//;   
     if($gname eq $name)   
     {   
      #print "name is: $name";   
      print G "\n#*--------------------------------------------------------\n\n";   
      print G "$line";   
      $isequal = 1;   
     }   
    }   
    elsif(($line =~ m/^END_GRAPH:/) && $isequal)   
    {   
     print G "$line";   
     $isequal = 0;   
     $printed = 1;   
    }   
    elsif($isequal)    
    {   
     print G "$line";   
    }   
   }   
  }}  
else   
{   
 die("cannot find file");   
}   
close(F);   
close(G);