www.webdeveloper.com
Results 1 to 2 of 2

Thread: Not getting values from combined foreach loops

  1. #1
    Join Date
    Sep 2012
    Posts
    17

    Not getting values from combined foreach loops

    Code:
    #!/web/soft/iw-home/TeamSite/iw-perl/bin/iwperl
    
    use strict; # require variables to be declared
    use diagnostics; # expand warnings (-w) expanation
    
    use File::Find;
    
    my @branchesSelected = qw(test_branch);
    &copySelected(\@branchesSelected); 
    
    my %options = (preprocess =>\&new_dir, wanted=>\&wanted);
    		
    find ( \%options, @root);
    
    #########################################################################
    # process files per directory
    #########################################################################
    sub new_dir
    {   
    	my @files = @_;  # the readdir() output 
                        # contains both (files and directories)
    					
    	# find html files under pages directory				
    	if ($File::Find::dir =~ m|pages|) {
    		
    		# sort files 
    		@files = sort(@files);
    						
    		# process files and directories
    		foreach my $name (@files) {
    			 next if ($name !~ m|workshop|);
    			# scan files
    			if (-e $name) {
    				
    				# skipped if not html file
    				next if ($name !~ m|\.html$|);
    				push (@copyFiles, "$File::Find::dir/$name");	
    
    			}
    			elsif (-d $name){
    				mi0::LogManager::info("Directory found $name, cannot copy folders");
    			}
    			else{
    				mi0::LogManager::info("No Files found");
    			}
    			copySelected(\@copyFiles);
    			mi0::LogManager::info("");
    		}	 
    	}
    	return @files;   #return the list to continue processing
    	
    } # End of sub new_dir {
    
    #########################################################################
    # needed for syntax, extra's for getting size etc. if needed
    #########################################################################
    sub wanted
    {
    	# not used here, but dummy sub is needed for syntax
    	# this routine is called for each file/directory
    	# if we wanted to do something special for each one
    	# maybe get a size or whatever...
    
    	# the full path name of this file would be in $File::Find::name 
    	
    } # End of sub wanted {
    
    sub copySelected ($) {
    	my $copy_selected = $_[0];
    	my @selectedBranches = qw();
    	my @selectedFiles = qw();
    	
    	foreach my $selected (@$copy_selected) {
    		next if $duplicates { $selected }++;
    		if ($selected =~ m|\/|g) {
    			mi0::LogManager::info("files selected: $selected"); 
    			push(@selectedFiles,$selected);
    		} else {
    			mi0::LogManager::info("branches selected: $selected");
    			push(@selectedBranches,$selected);
    		}		
    	}	
    		# shows results for foreach loops when separated
    		foreach my $branches (@selectedBranches) {
    			mi0::LogManager::info("branches copied: $branches"); 
    		}
    		foreach my $files (@selectedFiles) {
    			mi0::LogManager::info("files copied: $files"); 
    		}
    		
    		# no values from variables $files and $branches when combined
    		foreach my $branches (@selectedBranches) {
    			mi0::LogManager::info("branches copied: $branches"); 		
    			foreach my $files (@selectedFiles) {
    				mi0::LogManager::info("files copied: $files"); 
    			}
    		}		
    }
    combined foreach loop gives no values, but when foreach loops are separated (seen above) I get values. I'm trying to get values for combined foreach loops. Thanks for your help.
    Last edited by begood321; 07-11-2013 at 12:34 PM.

  2. #2
    Join Date
    Sep 2012
    Posts
    17
    Problem solved, complete solution below:

    #!/web/soft/iw-home/TeamSite/iw-perl/bin/iwperl

    use strict; # require variables to be declared
    use diagnostics; # expand warnings (-w) expanation

    use File::Find;

    my @branchesSelected = qw(test_branch);

    my %options = (preprocess =>\&new_dir, wanted=>\&wanted);

    find ( \%options, @root);

    #########################################################################
    # process files per directory
    #########################################################################
    sub new_dir
    {
    my @files = @_; # the readdir() output
    # contains both (files and directories)

    # find html files under pages directory
    if ($File::Find::dir =~ m|pages|) {

    # sort files
    @files = sort(@files);

    # process files and directories
    foreach my $name (@files) {
    next if ($name !~ m|workshop|);
    # scan files
    if (-e $name) {

    # skipped if not html file
    next if ($name !~ m|\.html$|);
    push (@copyFiles, "$File::Find::dir/$name");

    }
    elsif (-d $name){
    mi0::LogManager::info("Directory found $name, cannot copy folders");
    }
    else{
    mi0::LogManager::info("No Files found");
    }
    copySelected(\@copyFiles);
    mi0::LogManager::info("");
    }
    }
    return @files; #return the list to continue processing

    } # End of sub new_dir {

    #########################################################################
    # needed for syntax, extra's for getting size etc. if needed
    #########################################################################
    sub wanted
    {
    # not used here, but dummy sub is needed for syntax
    # this routine is called for each file/directory
    # if we wanted to do something special for each one
    # maybe get a size or whatever...

    # the full path name of this file would be in $File::Find::name

    } # End of sub wanted {

    sub copySelected ($) {
    my $copy_selected = $_[0];
    my @selectedBranches = qw();
    my @selectedFiles = qw();

    foreach my $selected (@$copy_selected) {
    next if $duplicates { $selected }++;
    if ($selected =~ m|\/|g) {
    mi0::LogManager::info("files selected: $selected");
    push(@selectedFiles,$selected);
    } else {
    mi0::LogManager::info("branches selected: $selected");
    push(@selectedBranches,$selected);
    }
    }

    #solution
    foreach my $branches (@branchesSelected) {
    mi0::LogManager::info("branches selected: $branches") if !$duplicates { $branches }++;
    foreach my $files (@selectedFiles) {
    $files =~ s|$copyFromBranch|$branches|g;
    mi0::LogManager::info("files copied: $files");
    }
    }
    }

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
HTML5 Development Center

"

"

X vBulletin 4.2.2 Debug Information

  • Page Generation 0.42193 seconds
  • Memory Usage 2,855KB
  • Queries Executed 15 (?)
More Information
Template Usage (34):
  • (1)SHOWTHREAD
  • (1)ad_footer_end
  • (1)ad_footer_start
  • (1)ad_global_above_footer
  • (1)ad_global_below_navbar
  • (1)ad_global_header1
  • (1)ad_global_header2
  • (1)ad_navbar_below
  • (1)ad_showthread_firstpost_sig
  • (1)ad_showthread_firstpost_start
  • (1)ad_thread_first_post_content
  • (1)ad_thread_last_post_content
  • (1)bbcode_code
  • (1)bbcode_quote
  • (1)footer
  • (1)forumjump
  • (1)forumrules
  • (1)gobutton
  • (1)header
  • (1)headinclude
  • (1)headinclude_bottom
  • (2)memberaction_dropdown
  • (1)navbar
  • (4)navbar_link
  • (1)navbar_moderation
  • (1)navbar_noticebit
  • (1)navbar_tabs
  • (2)option
  • (2)postbit
  • (2)postbit_onlinestatus
  • (2)postbit_wrapper
  • (1)spacer_close
  • (1)spacer_open
  • (1)tagbit_wrapper 

Phrase Groups Available (6):
  • global
  • inlinemod
  • postbit
  • posting
  • reputationlevel
  • showthread
Included Files (26):
  • ./showthread.php
  • ./global.php
  • ./includes/class_bootstrap.php
  • ./includes/init.php
  • ./includes/class_core.php
  • ./includes/config.php
  • ./includes/functions.php
  • ./includes/functions_navigation.php
  • ./includes/class_friendly_url.php
  • ./includes/class_hook.php
  • ./includes/class_bootstrap_framework.php
  • ./vb/vb.php
  • ./vb/phrase.php
  • ./includes/functions_facebook.php
  • ./includes/functions_calendar.php
  • ./includes/functions_bigthree.php
  • ./includes/class_postbit.php
  • ./includes/class_bbcode.php
  • ./includes/functions_reputation.php
  • ./includes/functions_notice.php
  • ./packages/vbattach/attach.php
  • ./vb/types.php
  • ./vb/cache.php
  • ./vb/cache/db.php
  • ./vb/cache/observer/db.php
  • ./vb/cache/observer.php 

Hooks Called (72):
  • init_startup
  • friendlyurl_resolve_class
  • init_startup_session_setup_start
  • database_pre_fetch_array
  • database_post_fetch_array
  • init_startup_session_setup_complete
  • global_bootstrap_init_start
  • global_bootstrap_init_complete
  • cache_permissions
  • fetch_postinfo_query
  • fetch_postinfo
  • fetch_threadinfo_query
  • fetch_threadinfo
  • fetch_foruminfo
  • load_show_variables
  • load_forum_show_variables
  • global_state_check
  • global_bootstrap_complete
  • global_start
  • style_fetch
  • global_setup_complete
  • showthread_start
  • showthread_getinfo
  • strip_bbcode
  • friendlyurl_clean_fragment
  • friendlyurl_geturl
  • forumjump
  • cache_templates
  • cache_templates_process
  • template_register_var
  • template_render_output
  • fetch_template_start
  • fetch_template_complete
  • parse_templates
  • fetch_musername
  • notices_check_start
  • notices_noticebit
  • process_templates_complete
  • friendlyurl_redirect_canonical
  • showthread_post_start
  • showthread_query_postids
  • showthread_query
  • bbcode_fetch_tags
  • bbcode_create
  • showthread_postbit_create
  • postbit_factory
  • postbit_display_start
  • postbit_imicons
  • bbcode_parse_start
  • bbcode_parse_complete_precache
  • bbcode_parse_complete
  • postbit_display_complete
  • memberaction_dropdown
  • tag_fetchbit_complete
  • forumrules
  • navbits
  • navbits_complete
  • build_navigation_data
  • build_navigation_array
  • check_navigation_permission
  • process_navigation_links_start
  • process_navigation_links_complete
  • set_navigation_menu_element
  • build_navigation_menudata
  • build_navigation_listdata
  • build_navigation_list
  • set_navigation_tab_main
  • set_navigation_tab_fallback
  • navigation_tab_complete
  • fb_like_button
  • showthread_complete
  • page_templates