Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re^4: Find svn log revisions with log message matching a given string

by Anonymous Monk
on May 21, 2014 at 03:51 UTC ( [id://1086898]=note: print w/replies, xml ) Need Help??


in reply to Re^3: Find svn log revisions with log message matching a given string
in thread Find svn log revisions with log message matching a given string

C:\Users\HP>svn log --limit 10 https://mySVN | perl -ne "BEGIN{$/="-"x +72; $re = shift} print"$r\n"if((($r) =split)&&/$re/)" 2.5996485
Backslash found where operator expected at -e line 1, near "$r\" (Missing operator before \?) Can't use an undefined value as a symbol reference at -e line 1, <> chunk 1.

Replies are listed 'Best First'.
Re^5: Find svn log revisions with log message matching a given string
by choroba (Cardinal) on May 21, 2014 at 08:53 UTC
    Not sitting at a MSWin machine, but I'd try
    perl -ne "BEGIN{ $/ = '-' x 72; $re = shift } print qq($r\n) if (($r) += split) && /$re/" 2.5996485
    whatever it does.
    لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ
      Wow. Thanks. This works. Do you know if you can explain how the statement works.
        First, it runs the BEGIN block. It sets the input record separator to 72 dashes and reads the argument (2.59...) to $re.
        Then, it reads the svn log entry by entry, and if it matches $re, it prints the first word ($r) from it.
        لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1086898]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others goofing around in the Monastery: (4)
As of 2024-03-29 13:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found