Estoy intentando crear una restricción a una función y para ello necesito aplicar algo parecido al código que pongo un poco más abajo. El problema es que me da el error: Use of uninitialized value $titulo in pattern match (m//) at ./Aviso_modificaciones_BOE_actualizado.pl line 94.
Lo que yo quiero es aplicar la función siempre y cuando el título empiece por lo que pone en el if.
Using perl Syntax Highlighting
- if ( $titulo =~ /Constitución(.*?)/ ) {
- $file_concuerda = Grep_file( $dir_file, $revision_consolidada );
- }
- elsif ( $titulo =~ /Tratado(.*?)/ && $revision_consolidada !~ /Constitución(.*?)/ ) {
- $file_concuerda = Grep_file( $dir_file, $revision_consolidada );
- }
- elsif ( $titulo =~ /Ley Orgánica(.*?)/
- && ( $revision_consolidada !~ /Constitución(.*?)/ || $revision_consolidada !~ /Tratado(.*?)/ ) ) {
- $file_concuerda = Grep_file( $dir_file, $revision_consolidada );
- }
- elsif ( $titulo =~ /LEY(.*?)/
- && ( $revision_consolidada !~ /Constitución(.*?)/ || $revision_consolidada !~ /Tratado(.*?)/ ) ) {
- $file_concuerda = Grep_file( $dir_file, $revision_consolidada );
- }
- elsif (
- $titulo =~ /Real Decreto-ley(.*?)/
- && ( $revision_consolidada !~ /Ley Orgánica(.*?)/
- || $revision_consolidada !~ /Constitución(.*?)/
- || $revision_consolidada !~ /Tratado(.*?)/ )
- ) {
- $file_concuerda = Grep_file( $dir_file, $revision_consolidada );
- }
- elsif (
- $titulo =~ /Real Decreto Legislativo(.*?)/
- && ( $revision_consolidada !~ /Real Decreto-ley(.*?)/
- || $revision_consolidada !~ /Ley Orgánica(.*?)/
- || $revision_consolidada !~ /Constitución(.*?)/
- || $revision_consolidada !~ /Tratado(.*?)/ )
- ) {
- $file_concuerda = Grep_file( $dir_file, $revision_consolidada );
- }
- elsif (
- $titulo =~ /Real Decreto(.*?)/
- && ( $revision_consolidada !~ /Real Decreto Legislativo(.*?)/
- || $revision_consolidada !~ /Real Decreto-ley(.*?)/
- || $revision_consolidada !~ /Ley Orgánica(.*?)/
- || $revision_consolidada !~ /Constitución(.*?)/
- || $revision_consolidada !~ /Tratado(.*?)/ )
- ) {
- $file_concuerda = Grep_file( $dir_file, $revision_consolidada );
- }
- elsif (
- $titulo =~ /Orden(.*?)/
- && ( $revision_consolidada !~ /Real Decreto Legislativo(.*?)/
- || $revision_consolidada !~ /Real Decreto-ley(.*?)/
- || $revision_consolidada !~ /Ley Orgánica(.*?)/
- || $revision_consolidada !~ /Constitución(.*?)/
- || $revision_consolidada !~ /Tratado(.*?)/ )
- ) {
- $file_concuerda = Grep_file( $dir_file, $revision_consolidada );
- }
- elsif (
- $titulo =~ /Circular(.*?)/
- && ( $revision_consolidada !~ /Orden(.*?)/
- || $revision_consolidada !~ /Real Decreto Legislativo(.*?)/
- || $revision_consolidada !~ /Real Decreto-ley(.*?)/
- || $revision_consolidada !~ /Ley Orgánica(.*?)/
- || $revision_consolidada !~ /Constitución(.*?)/
- || $revision_consolidada !~ /Tratado(.*?)/ )
- ) {
- $file_concuerda = Grep_file( $dir_file, $revision_consolidada );
- }
- else {
- $file_concuerda = Grep_file( $dir_file, $revision_consolidada );
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4