Sign Up
Log In
Log In
or
Sign Up
Places
All Projects
Status Monitor
Collapse sidebar
openSUSE:12.2
patterns-openSUSE
create-suggests
Overview
Repositories
Revisions
Requests
Users
Attributes
Meta
File create-suggests of Package patterns-openSUSE
#! /usr/bin/perl my $inpsg = 0; print "+Prc:\n"; my @lines; my $only_online = 0; while ( <STDIN> ) { chomp; if ( $_ =~ m/^\+Psg:/ ) { $inpsg = 1; next; } $inpsg = 0 if ( $_ =~ m/^-Psg:/ ); if ( $inpsg && !$only_online && $_ !~ m/^#/ ) { push(@lines, $_); } $only_online = ( $_ =~ m/#pragma / ); } for my $line (sort @lines) { print "$line\n"; } print "-Prc:\n";
Locations
Projects
Search
Status Monitor
Help
OpenBuildService.org
Documentation
API Documentation
Code of Conduct
Contact
Support
@OBShq
Terms
openSUSE Build Service is sponsored by
The Open Build Service is an
openSUSE project
.
Sign Up
Log In
Places
Places
All Projects
Status Monitor
