#!/opt/local/bin/perl -w use strict; my $p4 = "p4 -c bruno_ws -p 20073 -u bruno -H dhcp-52.dhcp.perforce.com"; open(FILE,">./stdout.txt") or die("unable to open the file"); print FILE `$p4 edit //bruno_ws/www/dev/index.html &2>1 ./error.txt`; print FILE `$p4 submit -z -d test &2>>1 ./error.txt`;
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#2 | 7321 | Stephen Moon | clean up | ||
#1 | 6465 | Stephen Moon | perl, python, and sh files uploaded to the public depot |