-
Notifications
You must be signed in to change notification settings - Fork 1
Changed 1 file … #73
base: master
Are you sure you want to change the base?
Changed 1 file … #73
Changes from all commits
File filter
Filter by extension
Conversations
Jump to
Diff view
Diff view
There are no files selected for viewing
| Original file line number | Diff line number | Diff line change |
|---|---|---|
|
|
@@ -12,6 +12,7 @@ sub find_emails { | |
|
|
||
| # get all emails from command-line args | ||
| foreach (@ARGV) { | ||
| // changed this file | ||
| find_emails($_); | ||
|
Comment on lines
14
to
16
Author
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. allalalalala |
||
| } | ||
|
Comment on lines
+15
to
17
Author
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. a review
Comment on lines
14
to
17
Author
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. asdfsad
Comment on lines
+15
to
17
Author
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. aaaaa |
||
|
|
||
|
|
||
| Original file line number | Diff line number | Diff line change |
|---|---|---|
| @@ -1,11 +1,14 @@ | ||
| while (<STDIN>) { | ||
| process(trim($_)); | ||
| // can you see it, Dave? | ||
| } | ||
|
|
||
| sub process() { | ||
| my $url = shift; | ||
| // also changed this file | ||
| my $html = qx{curl --silent $url}; | ||
|
Comment on lines
+8
to
9
Author
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. foo |
||
| while ($html =~ m/([A-Z0-9+_.-]+@[A-Z0-9.-]+)/gi) { | ||
| $emails_found{$1}++; | ||
| // changed this file again one more time, over and over | ||
| $emails_found{$1}++; | ||
|
Comment on lines
+11
to
+12
There was a problem hiding this comment. Choose a reason for hiding this commentThe reason will be displayed to describe this comment to others. Learn more. Perfect |
||
| } | ||
| } | ||
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
lelelelelelel