Intial Code Concept
- Code: Select all
sub ImageSize {
my $text = shift;
if ($text =~ m/(width=.*?\")/i) {
$width =~ s/(width=.*?\")/width=\"500\"/ig;
return $text}
sub ImageSize {
my $text = shift;
if ($text =~ m/(width=.*?\")/i) {
$width =~ s/(width=.*?\")/width=\"500\"/ig;
return $text}
Users browsing this forum: No registered users and 1 guest