#!perl -w

my $str = '';
  
  open( FH, "<test.htm") or die("Cannot open file");
  while(<FH>)
  {
    $str .= $_;
  }
  close(FH);

  $length = length($str);
  
  print "Str-Laenge: $length\n";

    # start timer
    $start = time();

    # perform a math operation 200000 times
    for ($x=0; $x<=1000000; $x++)
    {
      ### Operations
      &test2;
    }

    # end timer
    $end = time();

    # report
    print "Time taken was ", ($end - $start), " seconds"; 





sub test1()
{
    my $start = index($str, "<title>");
    my $ende = index($str, "</title>");


    $ende = $ende - $start - 7;
    $start += 7;

    my $title = substr($str, $start, $ende);
}

sub test2()
{
  if($str =~ /<title>(.*)<\/title>/i ) 
  {
    my $title = $1;

  }
}

#!/usr/bin/perl
use strict;
use warnings;
use Benchmark;

# test.html beinhaltet diese Beitragsseite lokal gespeichert
open FH, "test.html" or die "test.html: $!";
my $string = do { local $/; <FH> };
close FH;

timethese (1_000_000, {
        func1 => \&func1,
        func2 => \&func2,
});

sub func1 {
    my $start = index($string, "<title>");
    my $ende = index($string, "</title>");

    my $title = substr($string, $start+7, $ende - $start - 7);
}

sub func2 {
    my $title = Å© if ( $string =~ m{<title>(.*)</title>}i ) ; 
}

#!/usr/bin/perl
use strict;
use warnings;
use Benchmark;

open FH, "test.html" or die "test.html: $!";
my $string = do { local $/; <FH> };
close FH;

timethese (1_000_000, {
        func1 => \&func1,
        func2 => \&func2,
});

sub func1 {
    my $start = index($string, "<title>");
    my $ende = index($string, "</title>");

    print STDERR substr($string, $start+7, $ende - $start - 7);
}

sub func2 {
    print STDERR Å© if ( $string =~ m{<title>(.*)</title>} ) ; 
}