Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

mscharrer's scratchpad

by mscharrer (Hermit)
on Apr 15, 2008 at 10:45 UTC ( #680472=scratchpad: print w/replies, xml ) Need Help??

Copy svn properties:
( cd $DIR && svn pl -v --xml . -R ) | perl -MXML::Simple -MData::Dumpe +r -e ' $r = XMLin( join( "", <> ), ForceArray => 1, ContentKey => '-content' +); $r = { map { $_->{path} => $_->{property} } @{ $r->{target} } }; while ( my ( $path, $props ) = each %$r ) { while ( my ( $prop, $value ) = each %$props ) { print "svn ps '$pro' '$value' '$path'\n"; } } '
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2021-01-16 15:27 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?