#!/usr/bin/perl use warnings; use strict; use Fatal qw/ open /; my $p4 = "p4 -p localhost:20092 -u smoon -c test_ws"; open(IN,"$p4 labels |"); open(OUT,">labelNames.txt"); while(<IN>) { if(/^Label (\S+) (\d{4}\/\d{2}\/\d{2}) .*$/) { print OUT "$1\n"; print "$1 $2\n"; } } close(IN); close(OUT);
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#2 | 8645 | Stephen Moon | removing not up-to-date scripts | ||
#1 | 7675 | Stephen Moon | program to rename depot names associated with all the labels |