13 lines
280 B
Perl
Executable File
13 lines
280 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
|
|
while (<>) {
|
|
s/(<img.*src.*data:image\/[^;]*;base64,[a-zA-Z0-9+\/=]*)/<img src="LOCAL_IMAGE_REMOVED/g;
|
|
s/(<img.*src.*http.*>)/<img src="REMOTE_IMAGE_REMOVED" \/>/g;
|
|
print;
|
|
}
|
|
|
|
exit
|
|
# <img src="data:image/jpeg;base64,/9j/4QnuRXhpZgAATU
|