PracticeDev/study_perl/2-exl.pl

7 lines
103 B
Perl
Raw Normal View History

2022-12-20 17:31:11 +08:00
#! /usr/bin/perl
@lines = `perldoc -u -fatan2`;
foreach (@lines) {
s/\w<([^>]+)>/\U$1/g;
print;
}