PeterHarding: New page:

 #!/usr/bin/env perl # #  $Id:$ # #-------------------------------------------------  @types = ('backline', 'frontline', 'teamlead', 'operations'); @nodes = ('node1', 'node2', 'node3'...

2008-05-24T07:36:17Z

New page: <pre> #!/usr/bin/env perl # # $Id:$ # #------------------------------------------------- @types = ('backline', 'frontline', 'teamlead', 'operations'); @nodes = ('node1', 'node2', 'node3'...

New page

<pre>
#!/usr/bin/env perl
#
# $Id:$
#
#-------------------------------------------------

@types = ('backline', 'frontline', 'teamlead', 'operations');
@nodes = ('node1', 'node2', 'node3', 'node6');

$no_nodes = $#nodes + 1;

printf "Building data for %d nodes\n", $no_nodes;

#---- Rewrite ------------------------------------

foreach $type (@types) {
$in = sprintf("users_%s_node1.dat", $type);
$out = sprintf("users_%s_%dnodes.dat", $type, $no_nodes);

open IN, "< $in";
open OUT, "> $out";

$_ = <IN>;
print OUT $_;

$cnt = 0;

while (<IN>) {
$idx = $cnt % $no_nodes;

s/node1/$nodes[$idx]/;

print OUT $_;

$cnt++;
}

close IN;
close OUT;
}

#-------------------------------------------------
</pre>

[[Category:Perl]]

Rewrite users.pl - Revision history

PeterHarding: New page:
#!/usr/bin/env perl # # $Id:$ # #------------------------------------------------- @types = ('backline', 'frontline', 'teamlead', 'operations'); @nodes = ('node1', 'node2', 'node3'...