[ create a new paste ] login | about

Link: http://codepad.org/o2nD2xJu    [ raw code | output | fork ]

Perl, pasted on Jul 26:
1
2
3
4
5
6
7
8
9
10
11
while (<DATA>) {
    if (m/^copy\s+.*?\s+(.*?\_.*?)$/) {
        print "$1\n";
    }
}

__DATA__
copy xxxxxx_/cpu     b_relCAP_R3.0-1_INT5_xxxxx_cpu_p1
copy xxxxxxxx_/va_xxx_parameters    b_relCAP_R3.0-1_INT5_xxxxx_va_xxx_parameters_p1
copy xxxxxxxx_/xxxxxxx_view.tcl      b_relCAP_R3.0-1_INT5_xxxxxx_view.tcl_p0
copy xxxxx_/xxxxxarchivetool.jar   b_relEARLY_DROP1_xxxxxarchivetool.jar_xx


Output:
1
2
3
4
b_relCAP_R3.0-1_INT5_xxxxx_cpu_p1
b_relCAP_R3.0-1_INT5_xxxxx_va_xxx_parameters_p1
b_relCAP_R3.0-1_INT5_xxxxxx_view.tcl_p0
b_relEARLY_DROP1_xxxxxarchivetool.jar_xx


Create a new paste based on this one


Comments: